Copiar células e copiar em outra sheet sem sobrescrever

[tonnyype]

Olá, boa tarde.

Tenho noções básicas de macro, por isso peço a ajuda de vocês.

Gostaria de uma macro para copiar um intervalo de celulas de uma sheet para outra sem sobrescrever.

Comecei a procurar e cheguei nesse código que salva em outro arquivo:

Sub Salva()

    Range("A9:H33").Select
    Selection.Copy
    Workbooks.Open Filename:="C:\Manual\consolida.xlsx"
    Sheets("sheet1").Select
    Range("A2").Select
         Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

End Sub

A planilha vai funcionar da seguinte forma: O usuário digita as informações nas celulas do intervalo e pede para "gravar". Após isso os dados são salvos na "sheet2" e o formulário fica em branco para que ele prossiga com outro preenchimento.

Desde já obrigado!