I am trying to copy certain rows from one sheet to another which is working perfectly, but I need it to paste the data to the next empty row. Any help would be greatly appreciated.
VBA Code:
Sub TestEbay()
Dim Cell As Range
With Sheets("Ebay output")
' loop column H untill last cell with value (not entire column)
For Each Cell In .Range("ad2:ad" & .Cells(.Rows.Count, "ad").End(xlUp).Row)
If Cell.Value = "YES" Then
' Copy>>Paste in 1-line (no need to use Select)
.Rows(Cell.Row).Copy Destination:=Sheets("Output sheet").Rows(Cell.Row)
End If
Next Cell
End With
End Sub