Copiar rango de distintas hojas y pegarlas en otra hoja en la siguiente fila vacía

[Invitado danigran]

Hola a todos, 

soy nuevo en el foro, gracias por el soporte y la ayuda que prestáis. 

Mi cuestión es la siguiente:

Tengo varias hojas que empiezan por el nombre "PRO" y necesito que el rango (b13:g64) de cada una de las hojas pegue los valores en la hoja "Dat" a partir de la primera columna en la siguiente fila vacía. 

Lo he intentado con el siguiente código pero solo pega los valores del rango" b" y no todo el rango. 

 

Sub prueba()

    Dim hj As Worksheet

    Dim x As Integer

    For Each hj In ActiveWorkbook.Sheets

        If hj.Name Like "PRO*" Then

            Sheets("Dat").Range("a" & Rows.Count).End(xlUp).Offset(1) = hj.Range("b13:g64").Value

        End If

    Next hj

End Sub

 

Agradecería mucho vuestra ayuda. 

Saludos