Re-number column from 1

Alternative:

Public Sub RenumberColumn()

With Sheets("Co-location")
    With .Range(.Range("A10"), .Cells(.Rows.Count, "A").End(xlUp))
        .Formula = "=ROW()-9"
        .Value = .Value
    End With
End With

End Sub

WBD