I need help to Solve problem to MID function

OK Friends,

I am new to VBA Excel Still everything question for me, this time my question is.......

I have write this for only one cell,,,,,,,, I need code for for entire Column.
I mean If I have same file names for Entrie Column A1:A500.

Sub Test()
    Worksheets(2).Activate
    
    Range("A1") = "&005 D33++1324567.tif"
    Range("A1") = Mid("&005 D33++1324567.tif", 2, 16)
    
End Sub