copy and paste to next available row above or below existing data

[Pogishane]

this is the code i have so far:

Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet
Set copySheet = Worksheets("BDO Pipeline")
Set pasteSheet = Worksheets("UW Pipeline")
copySheet.Range("E3:H3").Copy
pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
Sheets("UW Pipeline").Select

So, for example what i want to have happen is if row 1,2,3, and 5 all have data. i want it to post to row 4 rather than row 6. Thanks in advance

[john55]

hi,
try this

Please Login or Register  to view this content.

...and yes, please use code tags around code next time!

[Pogishane]

my apologies will do. thanks for the help