Incolonnamento Domande e Risposte

Option Explicit
Sub Trasposizione_Dati()
    Dim ur     As Long                            'ultima riga colonna A
    Dim rng    As Range                           'range celle utilizzate colonna A
    Dim nr     As Long                            'nuova riga destinazione
    Dim x      As Long                            'contatore generico
    Application.ScreenUpdating = False
    ur = Range("A" & Rows.Count).End(xlUp).Row    'calcola ultima riga colonna A
    Set rng = Range("A1:A" & ur)                  'imposta range Domande/Risposte
    nr = 1
    For x = 1 To ur Step 2                        'ciclo ogni due righe
        rng.Cells(x).Resize(2).Copy               'copia 2 righe
        Range("B" & nr).PasteSpecial Paste:=xlPasteAll, Transpose:=True 'incolla con trasposizione
        nr = nr + 1                               'incrementa riga destinazione
    Next
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub