Existen varias formas de juntar todas las listas en una. Por ejemplo, se podría crear una macro que automatice el proceso de copiar y pegar. Sin embargo, una forma más sencilla sería copiar todas las listas en una nueva hoja y luego eliminar las filas de separación entre lista y lista con una macro. Las instrucciones para eliminar serían así:

If Cells(fila, “A”) = “” Then
       Rows(fila).EntireRow.Delete
Else
       fila = fila + 1
End If

Estas instrucciones deben estar dentro de un ciclo que recorra toda la lista. Si la fila visitada está vacía, la elimina. Si no, la deja y pasa a la fila siguiente. Para hacer el recorrido se puede usar un ciclo For… Next suficientemente amplio como para barrer todas las filas:

Sub Elimina()
fila = 1
For i = 1 To 1000
If Cells(fila, “A”) = “” Then
                Rows(fila).EntireRow.Delete
Else
                fila = fila +  1
End If
Next
End Sub