Combine multiple sheets

Hi all,

I found this vba script which is used to combine the data of multiple worksheets into one master sheet. However, I just want to copy data from row 4 downward. Please help me to achieve this. Thank you and please see below for the script :

 Sub Combine()
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub

Sub Combine()
    Dim j As Integer
    Worksheets.Add Before:=Sheets(1)
    Sheets(1).Name = "Combined"
    Sheets(2).Range("A1").EntireRow.Copy Destination:=Sheets(1).Range("A1")
    For j = 2 To Sheets.Count
        With Sheets(j)
            If .Range("A4") <> Empty Then
                .Range("A4", .Range("A" & Rows.Count).End(xlUp)).EntireRow.Copy _
                     Destination:=Sheets(1).Range("A" & Rows.Count).End(xlUp)(2)
            End If
        End With
    Next
End Sub

Code Tags Added
Your post does not comply with Rule 2 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found at http://www.excelforum.com/forum-rule...rum-rules.html



(I have added them for you today. Please take a few minutes to read all Forum Rules and comply in the future.)