Auto fill cells

[gblue3223]

I am working in VBA and am having an issue trying to get my information to copy down a formula until there is no data. The ranges of which to copy down changes so cant do a certain range. I have the formula in cell S4 and want it to be filled down. I am basing the data off column E that is 14 columns to the left of S where the fill down is. It will run thru this and then when it loops it will show this error- "Method Range of Object_Global Failed, Run time error 1004. Kind of lost on how to fix this or if im even on the right track. Any help would be much appreciated.

Sheets("SFDC Data FY").Select
Range("S4").Select
Do Until ActiveCell = ""
ActiveCell.AutoFill Destination:=Range(ActiveCell.Offset(0, -14)).Select
Loop
Introw = ActiveCell.Row

 

[Useful]

Hello and Welcome!

To do this without a macro select the whole range that you want to fill. Then F5 (or Ctrl+G) Special/Blanks/ok and press "=" sign and point up arrow and Ctrl+Enter.

 

[gblue3223]

appreciate it, but i do need this to run in a macro

 

[Useful]

ok, try:

Sub filldown()
Application.ScreenUpdating = False
i = 2
lst = Cells(Rows.Count, "S").End(xlUp).Offset(1).Row
While i < lst
If Cells(i, 19) = "" Then Cells(i, 19) = Cells(i - 1, 19)
i = i + 1
Wend
Application.ScreenUpdating = True
End Sub

 

[gblue3223]

Sorry that doesn't quite make sense. All i am trying to do is get the VBA portion i screenshotted to pull a formula from column S down all the way to match with data entered in coulmn E.

 

[Useful]

like that?

Sub filldown()
lst = Cells(Rows.Count, "E").End(xlUp).Offset(1).Row
Cells(4, 19).Resize(lst - 4).filldown
End Sub