Sub Sample()

    Dim wb As Excel.Workbook
    Dim ws As Excel.Worksheet
    Dim endCell As Excel.Range
    Set wb = ThisWorkbook
    Set ws = wb.Worksheets("Sheet1")
    
    '終端セルを取得したい列の最終セルを取得
    Set endCell = ws.Range("A65536")
    
    '最終セルでEndプロパティに定数xlUpを指定
    Set endCell = endCell.End(xlUp)

    'Rowプロパティで行数を表示
    MsgBox "終端セルは" & endCell.Row & "行目"

End Sub

詳しくは USB 接続させ、iTunes 起動時に行われる自動同期では同期出来るのに
iTunes 上で新しい曲を同期させようとしたり iPod の設定を変更したり復元などを実行すると
iPod が認識出来ずにエラーで落ちるという不可思議な現象

何気に結構前からこの現象に見舞われており再インストールしても改善されず
でもとりあえず同期は出来ていたから放置していたのだけど
やはり何かと不便なので色々と対策を講じてみた