Zellenbereiche hintereinander kopieren

Sub generate()
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim wksT As Worksheet
Dim i As Long
Dim j As Long
Dim Temp As Variant
Set wksQ = ThisWorkbook.Worksheets("Quelle")
Set wksZ = ThisWorkbook.Worksheets("Ziel")
Set wksT = ThisWorkbook.Worksheets("template")
With wksQ
For i = 11 To 15      'nach unten 65536
For j = 1 To 10    'Rechts 11
Select Case Cells(i, j)
Case "Apfel"
Temp = wksQ.Cells(i, 4).Value  ' hier hole ich noch einen anderen  _
Zelleninhalt welches
wksT.Cells(4, 4).Value = Temp  ' den Tabelleninhalt des Template  _
Sheets aktualisiert
' jetzt kommt der kopiervorgang von template worksheet nach ziel  _
worksheet
Sheets("template").Select
Range("A1:I35").Select
Selection.Copy
Sheets("Ziel").Select
Range("A1:I35").Select
ActiveSheet.Paste
'nur möchte ich beim nächsten Schleifenduchlauf einen anderen Bereich   _
_
auswählen
'von ("A4:I35") und dieser Bereich soll für die restlichen  _
schleifendurchläufe auch so bleiben
' nur beim aller ersten Schleifen durchlauf soll  ("A1: I35") ausgewä _
hlt werden
' und ausserdem möchte ich bei Jedem kopiervorgang ins Quellziel die  _
bereiche
' hinten dran hängen
' z.b:  1. durchlauf A1:I35 (template) nach A1:I35 (ziel)
'         2. durchlauf A4:I35 (template) nach A36:I67(ziel)
' usw
Case "Birne"
' wenn nun Birne ausgewählt wird wird das gleiche wie bei Apfel gemacht
' nur nur ein anderer Bereich ausgewählt
z.b: 1. durchlauf A38:A57 (template) nach ende des Bereichs vom Ziel  _
sheet
' bei 2 durchläufen wäre ja das ende A36:I67(ziel) bei x durchlä _
_
ufen ?
' ist es dynamisch machbar?
2. durchlauf A41:A57 (template) wieder im Ziel sheet hinten dran  _
_
hängen
Case "Orange"
das gleiche wie bei apfel und birne nur ein anderer Bereich
End Select
Next j
Next i
End With
End Sub