Function GomCot(Rg0 As Range, Rg1 As Range) As Variant
Dim W As Integer, J As Integer, Tg As Long
W = Rg0.Rows.Count
J = Rg1.Rows.Count
ReDim Arr(1 To W + J, 1 To 1) As String
For Tg = 1 To W
Arr(Tg, 1) = Str(Rg0(Tg, 1).Value)
Next Tg
For Tg = (W + 1) To (W + J)
Arr(Tg, 1) = Format(Rg1(Tg - W, 1).Value, "MM/DD/yyyy")
Next Tg
GomCot = Arr()
End Function