Experimente:

Sub ArranjaDados()
 Dim a As Long, k As Long, m As Long, x As Long, rng()
 Columns("J:L") = ""
 For a = 2 To Cells(Rows.Count, 1).End(3).Row
  k = Application.CountA(Cells(a, 1).Offset(, 1).Resize(, 3))
  Cells(m + 2, 10).Resize(k) = Cells(a, 1)
  For x = 1 To 3
   If Cells(a, 1).Offset(, x) <> "" Then
    rng = Array(Cells(1, x + 1), Cells(a, x + 1))
    Cells(m + 2, 11).Resize(, 2).Value = rng
    m = m + 1
   End If
  Next x
 Next a
End Sub

O código funcionou, mas está limitado a três estados, e na realidade a quantidade de colunas será variável. Eu também vou precisar jogar o resultado para outra aba, pode por favor ajudar? Obrigada!

Disponibilize um exemplo de acordo com a necessidade real....

Segue exemplo

Sub ArranjaDadosV2()
Dim a As Long, k As Long, m As Long, x As Long, rng(), LR As Long, LC As Long
 LR = ActiveSheet.UsedRange.Find(what:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
 LC = ActiveSheet.UsedRange.Find(what:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
 Sheets("Plan2").Range("A4:C" & Cells(Rows.Count, 1).End(3).Row) = ""
  For a = 2 To LR
   On Error GoTo gko
   k = Application.CountA(Cells(a, 1).Offset(, 1).Resize(, LC))
    Sheets("Plan2").Cells(m + 4, 1).Resize(k) = Cells(a, 1)
     For x = 1 To LC
      If Cells(a, 1).Offset(, x) <> "" Then
       rng = Array(Cells(1, x + 1), Cells(a, x + 1))
       Sheets("Plan2").Cells(m + 4, 2).Resize(, 2).Value = rng
       m = m + 1
      End If
     Next x
gko:
Resume Next
  Next a
End Sub

Muito obrigada!!