Leere Arraybereiche nicht übertragen

Moin,
Ich bräuchte mal eine kleine Hilfestellung.
Ich fülle ein Array über eine Markierung von Zellen und möchte dieses Array in eine andere Arbeitsmappe übertragen. Soweit klappt das auch.
Das Problem ist, es kann vorkommen das bereits Werte in der Zielzelle vorhanden sind und der Arraywert dann "Leer" ist.
Gibt es eine Möglichkeit die leeren Werte aus dem Array nicht zu übertragen?

Vielen Dank für mögliche Ideen oder Lösungsvorschläge.

Gruß
Carsten

Sub Array_uebertragen()
'
Dim Daten
Dim var As Variant
Dim SuBe As String

Application.Calculation = xlManual
Daten = Selection.Value
On Error Resume Next

Workbooks.Open Filename:= _
      "C:\Test_Ziel.xlsm"
For t = LBound(Daten, 1) To UBound(Daten, 1)

SuBe = Daten(t, 1)
var = Application.Match(SuBe, Range("A:A"), 0)

For i = LBound(Daten, 2) To UBound(Daten, 2)

ActiveSheet.Cells(var, 58 + i) = Daten(t, i + 1)
Next i
Next t

Application.Calculation = xlManual

End Sub