Como hacer una macro que cree tablas

Estoy realizando un formulario en excel que me permite guardar la hoja tamaño carta en un pdf quiero que teniendo en cuenta la información que se encuentra en la hoja 2 me unifique los que sean iguales pero que al guardar el pdf si supera el tamaño de la hoja me agregue otra hoja actualmente uso este código que encontré y realice algunas variaciones pero no consigo la parte de la hoja.

Sub transferirDatosOtraHoja()
Dim DOC_CONTRA As String
Dim PREFIJO As String
Dim FACTURA As String
Dim VALOR_CUOTA As String
Dim PAGO As String
Dim FECHA_REAL As String
Dim MEDIO As String
Dim LLAVE As String
Dim ultimaFila As Long
Dim ultimaFilaAuxiliar As Long
Dim cont As Long
Dim palabraBusqueda As String
palabraBusqueda = Sheets("BENEFICIARIOS").Cells(4, 5)
palabraBusqueda = "*" & palabraBusqueda & "*"
ultimaFila = Sheets("BENEFICIARIOS").Range("B" & Rows.Count).End(xlUp).Row
If ultimaFila < 8 Then
Exit Sub
End If
For cont = 6 To ultimaFila
If Sheets("BENEFICIARIOS").Cells(cont, 9) Like palabraBusqueda Then
DOC_CONTRA = Sheets("BENEFICIARIOS").Cells(cont, 2)
PREFIJO = Sheets("BENEFICIARIOS").Cells(cont, 3)
FACTURA = Sheets("BENEFICIARIOS").Cells(cont, 4)
VALOR_CUOTA = Sheets("BENEFICIARIOS").Cells(cont, 5)
PAGO = Sheets("BENEFICIARIOS").Cells(cont, 6)
FECHA_REAL = Sheets("BENEFICIARIOS").Cells(cont, 7)
MEDIO = Sheets("BENEFICIARIOS").Cells(cont, 8)
LLAVE = Sheets("BENEFICIARIOS").Cells(cont, 9)

ultimaFilaAuxiliar = Sheets("Certificado").Range("B" & Rows.Count).End(xlUp).Row
Sheets("Certificado").Cells(ultimaFilaAuxiliar + 1, 2) = DOC_CONTRA
Sheets("Certificado").Cells(ultimaFilaAuxiliar + 1, 4) = PREFIJO
Sheets("Certificado").Cells(ultimaFilaAuxiliar + 1, 5) = FACTURA
Sheets("Certificado").Cells(ultimaFilaAuxiliar + 1, 6) = VALOR_CUOTA
Sheets("Certificado").Cells(ultimaFilaAuxiliar + 1, 7) = PAGO
Sheets("Certificado").Cells(ultimaFilaAuxiliar + 1, 8) = FECHA_REAL
Sheets("Certificado").Cells(ultimaFilaAuxiliar + 1, 9) = MEDIO
End If
Next cont
ultimaFilaAuxiliar = Sheets("Certificado").Range("B" & Rows.Count).End(xlUp).Row
With Sheets("Certificado").Range("b31:i" & ultimaFilaAuxiliar).Font
.Name = "ARIAL"
.Size = 11
.Italic = False
End With

MsgBox "Proceso terminado", vbInformation, "Resultado"

End Sub