@boredonatuesday8793

Sub lastrow()

Dim Rang As Range
Dim sht As Worksheet
Dim lastrow As Integer

Set sht = ThisWorkbook.Sheets(2)

lastrow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row

' For i = X to X
With sht
    For I = 1 To lastrow
        Debug.Print .Cells(I, 3).Value
    Next I
End With


End Sub