Incolla questa macro

codice:
Sub copia()
Dim i, j, ultimariga As Long
Sheets(3).Cells.Clear
ultimariga = Range("a65536").End(xlUp).Row
j = 1
For i = 1 To ultimariga
    If Range("b" & i) <> "" Then
        Sheets(3).Range("a" & j) = Range("a" & i)
        Sheets(3).Range("b" & j) = Range("b" & i)
        j = j + 1
    End If
Next i
End Sub
e lanciala dal foglio originale. Il risultato lo troverai nel foglio 3.