Here is an Excerpt from my code:

Private Sub CommandButton1_Click()
Dim d,deg(12), min(12), sec(12), DEGt(24, 2) As Double
Dim Zodiac(12) As String
Dim h, k, cc, jm As Integer
Dim constell As String
With Sheets("Sheet1")
For d = 1 To 2
For h = 1 To 12
deg(h) = (.Cells(h + 4, 3 + 4 * d))
min(h) = (.Cells(h + 4, 4 + 4 * d))
sec(h) = (.Cells(h + 4, 5 + 4 * d))
DEGt(h, dates) = (deg(h)) + (min(h)) / 60
Zodiac(h) = .Cells(h + 4, 2 + 4 * (dates - 1))
Next h
Next d
End Sub