Allora, cambiando approccio e scrivendo il codice così sembra tutto ok

codice:
With xlSheet
        .Range("a3:e64").Borders(xlEdgeLeft).LineStyle = xlContinuous
        .Range("a3:e64").Borders(xlEdgeLeft).Weight = xlMedium
        .Range("a3:e64").Borders(xlEdgeTop).LineStyle = xlContinuous
        .Range("a3:e64").Borders(xlEdgeTop).Weight = xlMedium
        .Range("a3:e64").Borders(xlEdgeBottom).LineStyle = xlContinuous
        .Range("a3:e64").Borders(xlEdgeBottom).Weight = xlMedium
        .Range("a3:e64").Borders(xlEdgeRight).LineStyle = xlContinuous
        .Range("a3:e64").Borders(xlEdgeRight).Weight = xlMedium
        .Range("a3:e64").Borders(xlInsideVertical).LineStyle = xlContinuous
        .Range("a3:e64").Borders(xlInsideVertical).Weight = xlThin
        .Range("a3:e64").Borders(xlInsideHorizontal).LineStyle = xlContinuous
        .Range("a3:e64").Borders(xlInsideHorizontal).Weight = xlThin
        .Range("a3:e64").Borders(xlEdgeBottom).LineStyle = xlContinuous
        .Range("a3:e64").Borders(xlEdgeBottom).Weight = xlMedium
End With
Già che ci sono ne approfitto per fare un'altra domanda.
Poiche dovrò generare diversi fogli all'interno del mio file, devo per ciascuno ripetere tutta la pappardella o esiste un modo per automatizzare il tutto pur non sapendo a priori la lunghezza dei record che verranno estratti ed essendo il numero di colonne per ciascun foglio conosciuto a priori ma variabile?