I am creating a worksheet that will become a pivot table so I need the column G to be filled in for all rows. I would like it to loop through column G until it hits the last row (which may vary).
The data looks something like this
G8 Text to fill up
Repeats blanks and data
Would like to have text from G8 Fillup to G2:G7 or up until it hits another cell that has data in it. This is what I have right now - but it does not fill all the way up. It only fills up to G7:
Public Sub tester() Dim c As Range Dim r As Range Sheets("Sup_Data").Select Set r = Range("G2:G5000") For Each c In r On Error Resume Next If c = "" Then c = c.Offset(1, 0) Next c r(1.1).Select End Sub
Any help would be greatly appreciated!