VBA: Fill Columns until Blank Cell in Another Column

[larinda4]

Hi guys,

I have my code below. I need to "auto fill" my formulas in cells H2:P2 down until it hits the first blank row. Unfortunately, the code I'm using will auto fill until the last row used in the sheet. I have inserted a blank row between data where I would need the code to stop. I have it referencing column G currently.

Any tips?

Here is my code. I have 2 that I've been playing around with:
Dim lastrow As Long
lastrow = Range("G" & rows.Count).End(xlUp).Row
Range("H2:P2").AutoFill Destination:=Range("H2:P" & lastrow), Type:=xlFillDefault

and the other one:
With Sheets("Code")
.Range("H2:P2").AutoFill .Range("H2:P" & .Cells(.rows.Count, "G").End(xlUp).Row)
End With

 

[Fluff]

You're code was looking from the bottom of the upwards for a non blank cell, whereas using xlDown it's going the other way & will stop just before the first blank

 

[larinda4]

You're code was looking from the bottom of the upwards for a non blank cell, whereas using xlDown it's going the other way & will stop just before the first blank

Thank you for taking the time to explain it to me and thank you for all your help!

 

[Fluff]

You're welcome & thanks for the feedback.