VBA Paste into blank row

[cab401]

I have little knowledge of VBA but I think this should be a simple request. I would like to copy data from all rows (Columns B:K) in which Column B contains text, starting in B9 on Sheet2. I would like to paste this data into the first row after B12 in which Column B has a blank cell on Sheet1.

 

[My Aswer Is This]

Try this:

Sub Copy_Me()
'Modified 6/1/2019 12:56:39 AM  EDT
Application.ScreenUpdating = False
Dim Lastrow As Long
Lastrow = Sheets(2).Cells(Rows.Count, "B").End(xlUp).Row
Dim Lastrowa As Long
Lastrowa = Sheets(1).Cells(Rows.Count, "B").End(xlUp).Row + 1
If Lastrowa < 12 Then Lastrowa = 12
Sheets(2).Cells(9, "B").Resize(Lastrow - 8, 10).Copy Sheets(1).Cells(Lastrowa, "B")
Application.ScreenUpdating = True
End Sub

 

[cab401]

Thank you for the response however I receive an “Object Required” error when trying to run this.

 

[My Aswer Is This]

You must not have any data in column B of sheet(2)