Excel VBA copy/paste

1. Du behöver inte 'dstRows.Select' den koden gör inget i denna sub
2. Använd .PasteSpecial istället för .Paste, så kan du välja ut precis vilka delar av cellen du vill klistra in och vilka inte.
3. Dina ranges överlappar vatrandra, vilket gör det hela lite märkligt. Kör igenom min kod med F8 och se bilden som illustrerar. Justera dina ranges så det funkar rätt. Jag antar att det kanske borde vara A2:A6 A7:A10, men jag vet ju inte.
4. Jag rekommenderar att du namnger dina ranges istället för att kalla på cellreferenser .Range("A3:A6") --> .Range("MyDescriptiveSourceRangeName1")

Sub Template()
' Keyboard Shortcut: Ctrl+q
Set tplRows = Sheets("Sheet").Range("A3:A6")
Set dstRows = Sheets("Sheet").Range("A6:A9")
dstRows.EntireRow.Insert
tplRows.Copy
dstRows.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False

End Sub

Toppen.

Avluta med att visa raderna du vill visa, typ: dstRows.EntireRow.Hidden = False . Eftersom detta inte gör något ifall raderna inte skulle vara gömda av någon anledning så skadar det absolut inte ändå.

Ett tips är att du vänjer dig använda With när du har mer än 1 rad kod som referrerar till samma objekt

Generellt:
Sub Template()
Set tplRows = Sheets("Sheet2").Range("A3:A6")
Set dstRows = Sheets("Sheet2").Range("A7:A10")
tplRows.EntireRow.Copy
With dstRows.EntireRow
.Insert
.Hidden = False
End With
End Sub

Eller i detta fall om du aldrig refererar till själva rangen ändå:
Sub Template()
Set tplRows = Sheets("Sheet2").Range("A3:A6").EntireRow
Set dstRows = Sheets("Sheet2").Range("A7:A10").EntireRow
tplRows.Copy
With dstRows
.Insert
.Hidden = False
End With
End Sub

Det kanske verkar lite löjligt nu. Men vänj dig skriva konsekvent på detta sätt då det gör stor skillnad vid lite tyngre beräkningar eftersom detta sätt att skriva vba minimerar antalet anrop till objekten som i sin tur minskar körtiden.

Det är för att dstRows referensten flyttar sig när du kör insert. Justera med .Offset

With dstRows
.EntireRow.Insert
.Offset(tplRows.rows,0).EntireRow.Hidden = False
End With

Det är pga attribut som .Hidden som kopieras med .Copy som vi föredrar att använda .PasteSpecial över .Paste och .Insert. På det sättet plockar man ut exakt vad man vill kopiera över. I detta fall kanske Paste:=xlPasteValuesAndNumberFormats eller Paste:=xlPasteFormulasAndNumberFormats vilket betyder att det gömda attributet inte följer med i kopieringen, utan följer destinationscellens attribut istället.

Du förbereder med attlägga in de nya raderna in i arbetsboken först - innan du kopierar - med .EntireRow.Insert. Till exempel med en for loop

(du får se detta som ett exempel eft jag sitter på mobilen och inte kan kolla exakt var du ville ha de nya raderna.)
For i = 1 to tplRows.rows
--- dstRows.EntireRow.Insert
Next rw

.... koden med .Copy och .PasteSpecial fortsätter här, in i de nya tomma raderna.

EDIT: jag minns faktiskt inte om man kan kanske göra dstRows.EntireRow.Insert (tplRows.rows) vilket skulle vara betydligt cleanare