Adresselinie - til "labels - ark"

Hvis du har dine adresser stående på ark1 og ønsker listen på ark2, så kan du bruge nedenstående. Ellers kan du nok finde ud af, at skifte navnene selv :-)

Sub make_adr()
  Dim source As Range
  Dim dest As Worksheet
  Dim i, r, c As Integer
 
  Set source = Worksheets("Ark1").UsedRange
  Set dest = Worksheets("Ark2")
 
  c = source.Rows.Count
 
 
 
  i = 1
  For r = 1 To source.Rows.Count
    For c = 1 To source.Columns.Count
        dest.Cells(i, 1) = source.Cells(r, c)
        i = i + 1
    Next 'c
    i = i + 1 ' omsert blank line
  Next ' r
 
End Sub

Byen fra kolonne E skulle gerne stå ved siden af postnummeret og ikke under som den gør nu.

Hvis det er muligt så skal den også kun tage Adress2 med hvis den ikke er tom

der kommer vist ikke flere svar her :-(