Loop function in VBA

[tlrobinson512]

Good Morning Everyone!

I am in need of what I think is some easy assistance that I just can't figure out. I am new in the world of VBA, but I am attempting to loop this function until it finds the next empty row in column C.

Private Sub Workbook_Open()

Range("C2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]="""","""",RC[-1]+30)"
Range("C3").Select


End Sub

I have a feeling this is an extremely basic and easy task and I am perhaps, overthinking the code?? Any help you can provide would be much appreciated! Thanks in advance!

 

[vds1]

Try,

Private Sub Workbook_Open()
	Range("C" & Rows.Count).End(xlUp).Offset(1, 0).Select
	ActiveCell.FormulaR1C1 = "=IF(RC[-1]="""","""",RC[-1]+30)"
End Sub

 

[tlrobinson512]

Thanks for the response vds1. I thought the .End(x1Up) was the way to go as well, but when I insert that into the code it still only gives me results for cell C2. It does not go to the next line and insert the IF Formula. The weird things is that when you run the code, it places the formula in C2 as I said, but then it jumps down to cell C36. To test the function I have values in cells B2:B5, so the end result should be population of the formula in C2:C5 and then stop.

 

[tlrobinson512]

vds1. I figured out the issue!! Your recommended add is correct! Thanks for the response and help! My formula is only specific to cell C2.