VBA Code - Copy To Next Empty Row After B13

[glerwell]

Hi

I'm looking for a VBA code that will copy some data into the next empty row after row 13.

So if rows 13-18 have data in column B then the data would be copied to B19.

I know how to copy the data via VBA but I'm unsure on how to start the code, so that if finds the relevent row.

Basically I have data starting in B13 and all the new data added would be placed in each new blank row after.

I would also like it to be coded so that it can be run on any sheet as long as it is active. So the new data would be copied to the next blank row in the active sheet.

Thanks

 

[SeanE]

Hello,

The following code will select the first blank cell in column B after B13.

ActiveSheet.Range("B13").Select
If ActiveCell.Offset(1, 0) <> "" Then
    Selection.End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select

Then just place your copy code after it.

Hope this helps!

 

[glerwell]

Thanks Sean, got that working!

Cheers

 

[Scott Huish]

Why all the Selects?

Sub test()
Dim x As Long
x = Range("B" & Rows.Count).End(xlUp).Row
If x < 13 Then x = 13
Range("A1").Copy Range("B" & x + 1)
Application.CutCopyMode = False
End Sub