kopieren/importeren/verplaatsen naar één tabblad

[vrouw]

Hallo,

Kan ik met een VBA code data wat verspreid staat over meerder tabbladen importeren/kopieren naar een nieuw leeg tabblad zodat daat alles netjes onder elkaar komt?
Bekijk bijlage offerte 2.xls
Zie Bijlage.

 

[Diffractorator]

Hiermee lukt het:

Sub Diffractorator()

Dim Counter As Integer

Counter = 0

For Each wssheet In Worksheets
    Counter = Counter + 1
    wssheet.Activate
    Range("A1").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
       If Counter <> 1 Then
       Selection.Copy
       Worksheets(1).Activate
            For Each c In Range("A:A")
                c.Select
                If Selection <> Empty Then
                Else
                Exit For
                End If
            Next c
        Selection.Select
        ActiveCell.PasteSpecial
       End If
Next wssheet

'Written by Diffractorator

End Sub