referencer i excel

Dette burde kunne gøre det. hvis der er overskrifter så ændrer du bare "A1" til "A2"

Sub transfer()
Dim xark, sh As Worksheet
xark = Array("Afd1", "Afd2", "Afd3")
For x = 0 To 2
    Set sh = Sheets(xark(x))
    sh.Range("A1", sh.Range("A65536").End(xlUp).Offset(0, 4)).Copy _
            Sheets("master").Range("A65536").End(xlUp).Offset(1, 0)
Next
End Sub

brug denne hvis du ønsker at rydde dataområde i master først

Sub transfer()
Dim xark, sh As Worksheet, shmaster As Worksheet
xark = Array("Afd1", "Afd2", "Afd3")
Set shmaster = Sheets("master")
shmaster.Range("A2", shmaster.Range("A65536").End(xlUp).Offset(0, 4)).ClearContents
For x = 0 To 2
    Set sh = Sheets(xark(x))
    sh.Range("A1", sh.Range("A65536").End(xlUp).Offset(0, 4)).Copy _
            shmaster.Range("A65536").End(xlUp).Offset(1, 0)
Next
End Sub

Hej Bak,
Den køber jeg sgu. Tak for det
send lige et svar

Morten

:-)