foutmelding bij plakken na ActiveSheet.Unprotect

[ginogcsbelgie]

Hallo iedereen,
Ik zit met een probleempje in mijn code bij het plakken van waarden na ActiveSheet.Unprotect
Dan stopt mijn visual basic bij de volgende regel met het uitvoeren van mijn macro.
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

En als ik het unprotect uitvoer doet hij het wel normaal
Range("AC4:AC8").Select
Selection.Copy
Sheets("TotalenWerkbons").Select
ActiveSheet.Unprotect
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(rowOffset:=1).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
Range("A1").Select
ActiveSheet.Protect

Weet hier iemand een antwoord op?
Alvast bedankt voor de hulp

 

[HSV]

Probeer het zo maar eens.

with Sheets("TotalenWerkbons")
  .unprotect
  .cells(rows.count, 1).end(xlup).offset(1).resize(,5) = application.transpose(Range("AC4:AC8").value)
  .protect
end with

 

[ginogcsbelgie]

Goeieavond Harry,
Bedankt voor de snelle reactie en het werkt ook zo maar enkel plakt hij nu de regel niet in en vanaf vanaf lijn 3 maar in lijn 1501 en zo naar beneden?

 

[HSV]

Dan staat er iets in A1500.

Staat er tussen A100 en A1500 nog iets?

Anders:

.Cells(1).End(xlDown).Offset(1).Resize(, 5) = Application.Transpose(Range("AC4:AC8").Value)

 

[ginogcsbelgie]

Hartelijk dank Harry, werkt nu perfect met die regel aan te passen.