Convertir resultado de macro en una tabla

Hola a todos

tengo un libro con varias hojas para hacer tarifas de precios. Uso una macro para hacer un resumen en la hoja tarifa,con este formato:

Ref. Descripción precio

Hoja1 pepe 2,00

hoja2 jose 4.15

hoja3 juan 3.25

los resultados de la macro serian los de arriba, y quería saber si se pueden poner en una tabla (insertar---> tabla) de manera automática, seria una cuestión estética mas que nada

la macro que uso es esta:

Option Explicit
Sub Resumen()
Dim wshDat As Worksheet
Dim wshRes As Worksheet
Dim rngRC As Range
Dim lngF As Long
 'Se supone que la hoja con el resumen es "Tarifa" y los títulos de la tabla
 'están en D11:D11
 'Borrar datos anteriores
 Set wshRes = ActiveWorkbook.Worksheets("Tarifa")
 With wshRes
 Set rngRC = .Range(.Cells(1, 4), .Cells(.Rows.Count, 2).End(xlUp))
 End With
 rngRC.Offset(11, 0).ClearContents
 'antes de usar cambiar al 1 pox 15, hacer una prueba borar lo escrito y volver a poner 1
 lngF = 1
 Application.ScreenUpdating = False
 'Recorrer todas las hojas y extraer los datos (en A2,B2 y J31)
 For Each wshDat In ActiveWorkbook.Worksheets
 If wshDat.Name <> wshRes.Name And wshDat.Name <> "Datos" And wshDat.Name <> "Base" Then
 With rngRC.Cells(11, 1)
 .Offset(lngF, 0) = wshDat.Cells(2, 1)
 .Offset(lngF, 1) = wshDat.Cells(2, 2)
 .Offset(lngF, 2) = wshDat.Cells(31, 10)
 wshRes.Hyperlinks.Add Anchor:=.Offset(lngF, 0), Address:="", _
 SubAddress:=wshDat.Name & "!A2", _
 ScreenTip:="Abre la hoja del Modelo (" & wshDat.Name & ")"
 End With
 lngF = lngF + 1
 End If
 Next

gracias por las respuestas