Fill in formula based on last row and column

[vilkas]

Hi,

I am looking for macro that fills in the table range based on last column and row in row 1 and column A.

I am using the code to fill the formula based on last row however have no idea how to expand this to the left in order to fill in the column range (till the last column) for the same formula:

With Worksheets("PROVISIONS_TABLE NEW")
Lastrow = .Cells(Rows.Count, "A").End(xlUp).Row
.Range("B2").AutoFill Destination:=.Range("B2:B" & Lastrow
End With

 

[LateralThinker]

Hi

Try this:

Application.Calculation = xlCalculationManual
    With Worksheets("PROVISIONS_TABLE NEW")
     
      Lastrow = .Cells(Rows.Count, "A").End(xlUp).Row
      Lastcol = .Cells(Lastrow, Columns.Count).End(xlToLeft).Column
     
      .Range("B2").Copy Destination:=.Range("B2", Cells(Lastrow, Lastcol))
      
    End With
Application.Calculation = xlCalculationAutomatic