@ Warme bakkertje,
Is het niet beter om gebruik te maken van de tabel ?
Als er een totaalrij aan de tabel wordt toegevoegd gaat het alsnog fout.
Sub wegschrijven()
With Sheets("Opsomming")
.ListObjects("Tabel3").ListRows.Add _
.Range.Resize(, 4) = Array([C5], [B10], [H5], [I10])
.PivotTables("Draaitabel1").PivotCache.Refresh
End With
With Sheets("Form")
.Range("B5:I10") = ""
Application.Goto .Range("C5")
End With
End Sub