VBA Macro to Fill Down a column(s) with the same data

[Ovisele]

First of all, thank you for taking the time to read this.

To keep it simple, is there a simple code line(s) that allow me to fill down automatically one column, with the value from a specific cell (I3 here), until the end of data (variable number of rows)? I have 600 files and the number of lines that need to be filled varied from 2 to 80+.

I have tried this lines but It returns an error Argument not optional for the Autofill.

Sub Test()
Dim ws As Worksheet
Set ws = Worksheets("Calculus")
With
ws Range("I3").AutoFill Range ("I4:I" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
End With

Thank you very much!

 

[Ovisele]

I do not get the any error but the fill down is not working any more. Full code below, maybe it is easier this way.

Sub FillDown()


Dim xFd As FileDialog
Dim xFdItem As Variant
Dim xFileName As String
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
If xFd.Show = -1 Then
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.xls*")
Do While xFileName <> ""
With Workbooks.Open(xFdItem & xFileName)
'your code here
If lr > 1 Then
lc = Cells(3, Columns.Count).End(xlToLeft).Column - 8
lr = Cells(Rows.Count, "h").End(xlUp).Row - 2
Range("I3:m3").AutoFill Cells(3, 9).Resize(lr, lc)
End If
ActiveWorkbook.Save
ActiveWorkbook.Close
End With
xFileName = Dir
Loop
End If
End Sub

 

[mohadin]

See this part

lc = Cells(3, Columns.Count).End(xlToLeft).Column - 8
lr = Cells(Rows.Count, "h").End(xlUp).Row - 2
[COLOR=#ff0000]If lr > 1 Then[/COLOR]
Range("I3:m3").AutoFill Cells(3, 9).Resize(lr, lc)

 

[Ovisele]

Divine! Many thanks again! I highly appreciate your input.

 

[mohadin]

You are very well come
Thank you for the feedback
Be happy