Find empty cell in range and copy range next to it

[dtrujillo]

I need some help on writing a code that finds any empty cell in a range ("Q4:Q46") and then cuts the cells ("A:P") in that same row and paste it to another sheet starting with cell ("A4"). Then delete the rows that the data was cut from. This code will be linked to a command button. Any help would be appreciated. Thank you.

 

[SamTYler]

Dim FoundRange As Range
FoundRange = Find your empty cell

dim PasteRow As Long
PasteRow = 4
'Paste data thusly
PasteToWorksheet.Cells(PasteRow, 1).Paste
PasteRow = PasteRow + 1

DeletingWorksheet.Rows(foundRange.Row).EntireRow.Delete
Next Find, Start After FoundRange.Offset(-1, 0)