Roll column forward and hard paste previous

Hi,

I have the following code to copy a formula forward to the next blank column and hard paste the previous one:

Code:

---

Sub RollColumn()  Dim UsdCols As Long
 
  UsdCols = Cells(2, Columns.Count).End(xlToLeft).Column
  With Range(Cells(2, UsdCols), Cells(76, UsdCols))
      .Copy .Offset(, 1)
      .Value = .Value




  End With
   
End Sub

---

Is it possible to change the row 76 in the range to the last used row in that range?

Thanks

Code:

---

Sub RollColumn()
Dim UsdCols As Long
UsdCols = Cells(2, Columns.Count).End(xlToLeft).Column
lastRow = Cells(Rows.Count, UsdCols).End(xlUp).Row
With Range(Cells(2, UsdCols), Cells(lastRow, UsdCols))
  .Copy .Offset(, 1)
  .Value = .Value
End With
End Sub

---