Copie des colonnes de Feuil1 et collage sur la dernière feuille (VBA)

bonjour

je souhaite copier des colonnes de G jusque S ( et transposer les formules ) de la feuil1 vers la dernière feuil et ceux a partir de la colonne G

mon souci est que je n'arrive pas a définir la dernière feuil

Sub CopieCol()
    Sheets("Feuil1").Select
    Range("G:G,H:H,I:I").Select
    '   Range("E1").Activate
    Selection.Copy
    Sheets.Copy After:=ActiveSheet

    Columns("G:G").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub

voila mes essai sans grande réussite

j'ai trouve avec la fonction Sheets count qui affiche la dernière feuille

Sub CopieCol()
   On Error Resume Next

    Sheets("Feuil1").Select
    Columns("G:S").Select
    Selection.Copy

    Sheets(Sheets.Count).Select
    Columns("G:G").Select

    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False