Excel - Macros - Crear una Tabla - Respuesta para Juan Carlos

Sub Llenar_Tabla()

    Lin_Orig = 2

    While Sheets("Resultados").Cells(Lin_Orig, 1) <> ""

       c_Local = Sheets("Resultados").Cells(Lin_Orig, 1)

       c_Visit = Sheets("Resultados").Cells(Lin_Orig, 2)

       c_Datos = Sheets("Resultados").Cells(Lin_Orig, 3)

       Lin_Posi = 0: Lin_Dest = 2

       Col_Posi = 0: Col_Dest = 2

       While Lin_Dest > 1 And Sheets("Tabla").Cells(Lin_Dest, 1) <> ""

          If c_Local = Sheets("Tabla").Cells(Lin_Dest, 1) Then

             Lin_Posi = Lin_Dest

             Lin_Dest = 1

          Else

             Lin_Dest = Lin_Dest + 1

          End If

       Wend

       While Col_Dest > 1 And Sheets("Tabla").Cells(1, Col_Dest) <> ""

          If c_Visit = Sheets("Tabla").Cells(1, Col_Dest) Then

             Col_Posi = Col_Dest

             Col_Dest = 1

          Else

             Col_Dest = Col_Dest + 1

          End If

       Wend

       If Lin_Posi > 0 And Col_Posi > 0 Then

          Sheets("Tabla").Cells(Lin_Posi, Col_Posi) = c_Datos

       End If

       Lin_Orig = Lin_Orig + 1

    Wend

    MsgBox "Tabla actualizada"

End Sub