Hello,
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
G2:G7 Blank
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:
Code
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
Display More
Any help would be greatly appreciated!
Thanks!