AutoFill Help

[gtbb]

Workbooks.Open Filename:= _
"T:\TEST\Error Log Report\External report.xlsx"
Range("A2:H2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Bank Perfomance Metric.xlsm").Activate
Sheets("Bank Error").Select
lMaxRows = Cells(Rows.Count, "a").End(xlUp).Row
Range("a" & lMaxRows + 1).Select
ActiveSheet.Paste
lMaxRows = Cells(Rows.Count, "I").End(xlUp).Row
Range("I" & lMaxRows + 1).Select
ActiveCell.FormulaR1C1 = "2"
ActiveCell.Copy
??????????

Hi Eveyone,

I am looking for some help with my above macro. I am trying to fill out the missing steps that will autofill "2" down to the last cell in column I that corresponds to the data in columns A-G. Your help is very much appreciated.

 

[shg]

One way:

    Dim wks As Worksheet
    Dim r As Range
    
    Set wks = Workbooks("Bank Perfomance Metric.xlsm").Worksheets("Bank Error")
    Set r = wks.Cells(Rows.Count, "A").End(xlUp).Offset(1)
    
    Workbooks.Open Filename:="T:\TEST\Error Log Report\External report.xlsx"
    With Range("A2", Range("H2").End(xlDown))
        .Copy r
        wks.Cells(r.Row, "I").Resize(.Rows.Count).Value = 2
    End With

 

[gtbb]

Hi Shg,

It works perfectly. I truly appreciate your help. I was worry if anyone would understand my question. Thanks again!