Copy and Paste rows if cells if they contain data

[joh1135]

I have several worksheets (TIME A, TIME B, TIME C, TIME D, TIME E...) that I want to check each row from A129:N133 to see if column A contains data. If column A contains data copy the range to worksheet DATA starting at A129.

Then check Time A to see if there is data in A130 and put that in DATA at A130:N130 and repeat down to 135

I then want to check TIME B and if there is data in A129 put the range in the next blank row after A130 - so on thru each worksheet.

So then Data a120:N140 will contain all the data from the other worksheets -

Thanks

 

[Boller]

Untested :-

Dim sh As Worksheet
For Each sh In Worksheets
If sh.Name = "Data" Then GoTo n
sh.[A129:N133].Copy
If Sheets("Data").[A65536].End(xlUp).Row < 129 Then
Sheets("Data").Paste Destination:=Sheets("Data").[A129]
Else
Sheets("Data").Paste Destination:=Sheets("Data").[A65536].End(xlUp)(2)
End If
n:
Next
On error Resume Next
With Sheets("Data")
.Range(.[A129], .[A65536].End(xlUp)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
On Error GoTo 0