Como programar un comando para guardar rango de celdas en una tabla especifica.

Esto es lo que tengo:

Private Sub CommandButton5_Click() Application.StatusBar = "Un momento, por favor, estoy procesando..."

Application.ScreenUpdating = False

respuesta = MsgBox("¿LOS DATOS SON CORRECTOS PARA GUARDAR?", 4, "¡¡Encontrado!!")

If respuesta = vbYes Then

Sheets("Bitácora").Select

Range("AA5:AJ5").Select

Selection.Copy Sheets("Ingresos").

Select Range("A2").Select
While ActiveCell.Value <> ""

ActiveCell.Offset(0, 0).Range("A2").Select

Wend

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

Range("A1").Select
End If

Application.ScreenUpdating = False

TextBox1 = ""

TextBox2 = ""

TextBox3 = ""

TextBox4 = ""

TextBox5 = ""

TextBox6 = ""

TextBox7 = ""

TextBox8 = ""

ComboBox2 = ""

Sheets("Bitácora").Select

Range("AA5:Aj5").Select

Selection.ClearContents
Sheets("Bitácora").Select

ActiveWorkbook.Save
Application.ScreenUpdating = True

Application.StatusBar = False

End Sub

Necesito guardar esto en una tabla especifica (1 por cada mes)