Auto Fill Down

[paulcherianc]

Dear Ninjas,

How can i make the following code to a single string!

Sub lastRow()
  Dim lastRow As Long
  lastRow = Range("B" & Rows.Count).End(xlUp).Row
  Range("C41").AutoFill Destination:=Range("C41:C" & lastRow)
  Range("D41").AutoFill Destination:=Range("D41:D" & lastRow)
  Range("E41").AutoFill Destination:=Range("E41:E" & lastRow)
  Range("F41").AutoFill Destination:=Range("F41:F" & lastRow)
End Sub

 

[AlanSidman]

Option Explicit

Sub lastRow()
  Dim lastRow As Long
  lastRow = Range("B" & Rows.Count).End(xlUp).Row
  Range("C41:F41").AutoFill Destination:=Range("C41:F" & lastRow)

End Sub