automatisch regel invoegen tips gevraagd urenlijst

[huppelpaard]

ik heb nog een toevoeging gevonden voor mijn uren lijst

ik heb nu een sheet aangemaakt genaamd importdata en daar plak ik mijn planning in van de hele week
nu wil ik dat deze planning in de sheet template gekopieerd word alleen krijg ik het alleen voor elkaar als ik maar 1 klus per dag heb
met deze code

Sheets("importdata").Select
    Range("b1:f1").Select
    Selection.Copy
    Sheets("Template").Select
    Range("F6").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True

End Sub

ik kan alleen geen oplossing vinden als ik dus 2 of meer klussen op 1 dag heb hoe ik deze onder elkaar krijg op de juiste dag
heeft er iemand een idee zie bijlage

Bekijk bijlage helpmij voorbeeldx3.xlsm

 

[HSV]

Werkt dit beter?

Sub importdata()
Dim sv, i As Long, j As Long
sv = Sheets("importdata").Cells(1).CurrentRegion
ReDim arr(0)
 For j = 2 To UBound(sv, 2)
  For i = 1 To UBound(sv)
    If sv(i, j) > 0 Then
     arr(UBound(arr)) = sv(i, j)
     ReDim Preserve arr(UBound(arr) + 1)
    End If
  Next i
 Next j
Sheets("Template").Range("F6").Resize(UBound(arr)) = Application.Transpose(arr)
End Sub

 

[huppelpaard]

Dit werkt gewoon perfect enorm bedankt weer hsv je bent mijn held