Option Explicit
Sub Test()
With Worksheets("Tabelle1")
.Range("A1:D1").Value = Array("Kopf1", "Kopf2", "Kopf3", "Kopf4")
.Range("A2:D2").Value = Array(10, 20, 30, 40)
.Range("A3:D3").Value = Array(11, 21, 31, 41)
.Range("A4:D4").Value = Array(, 22, , 42)
.Cells(5, "A").Value = "Wert0"
.Cells(5, "B").Value = "Wert1"
.Cells(5, "C").Value = "Wert2"
.Cells(5, "D").Value = "Wert3"
End With
End Sub