With ws
tbl1 = .Range("a2:g" & .[A80000].End(xlUp).Row).Value
End With
ReDim tbl2(1 To UBound(tbl1), 1 To 7)
k = 0
For Each c In Array(1, 2, 3, 4, 5, 6, 7)
k = k + 1
For i = 1 To UBound(tbl1): tbl2(i, k) = tbl1(i, c): Next i
Next c
For col = 4 To 6
For i = 1 To UBound(tbl1)
tbl2(i, col) = Format(tbl1(i, 4), "dd.mm.yyyy")
Next i
Next col