Totaaloverzicht met UsedRange zonder eerste rij

[ginahaisma12]

Ik wil graag een totaaloverzicht genereren vanuit een aantal tabbladen met behulp van de onderstaande VBA macro:

Sub totaal()
'
Dim verzamelblad As Worksheet
Set verzamelblad = ThisWorkbook.Sheets("Totaal IT")
Application.CutCopyMode = xlCopy
ThisWorkbook.Sheets("Snelloper").UsedRange.Copy
verzamelblad.UsedRange.SpecialCells(xlCellTypeLastCell).EntireRow.Columns(1).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=True, Transpose:=False
ThisWorkbook.Sheets("Reachtruck").UsedRange.Copy
verzamelblad.UsedRange.SpecialCells(xlCellTypeLastCell).EntireRow.Columns(1).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=True, Transpose:=False
Application.CutCopyMode = False
End Sub

Echter zou ik graag alleen bij de eerste sheet de koptekst/eerste rij willen kopieren en vervolgens vanaf rij 2, zodat niet overal een koptekst tussen komt te staan. Weet iemand hoe ik dat kan toepassen?

 

[Haije]

probeer het zo eens:

ThisWorkbook.Sheets("Snelloper").UsedRange.Offset(1).Copy

Je kopieert dan onderaan een lege regel mee

 

[VenA]

Het gebruik van inspringpunten is blijkbaar onbekend? Zonder voorbeeldbestand kom ik op zoiets

Sub VenA()
  ar = Array("Snelloper", "Reachtruck")
  With Sheets("Totaal IT")
    .Cells.Clear
    For j = 0 To UBound(ar)
      Sheets(ar(j)).UsedRange.Offset(IIf(j = 0, 0, 1)).Copy IIf(j = 0, .Cells(1), .Cells(Rows.Count, 1).End(xlUp).Offset(1))
    Next j
  End With
End Sub