Sub GeneraTabla()
'
' GeneraTabla Macro
' CopiarData
'
' Acceso directo: CTRL+q
'Inicio en B2
Dim C As Integer
Dim l, n, a, e, p As String
C = 1
H = 2
salir = False
While salir = False
Sheets("Hoja1").Select
Debug.Print Range("B" & C).Value
If Range("B" & C).Value <> "" Then
l = Range("B" & C).Value
n = Range("D" & C).Value
a = Range("D" & C + 1).Value
e = Range("D" & C + 2).Value
p = Range("D" & C + 3).Value
Sheets("Hoja2").Select
Range("A" & H).Value = l
Range("B" & H).Value = n
Range("C" & H).Value = a
Range("D" & H).Value = e
Range("E" & H).Value = p
C = C + 4
H = H + 1
Else
salir = True
End If
Wend
MsgBox "Proceso Terminado"
End Sub