Capturing data from userform into the workbook

Private Sub cmdClose_Click()
Count = 1
Dim myArray As Variant
ReDim myArray(Me.Controls.Count)
Dim cCont As Control

    For Each cCont In Me.Controls
    
If TypeName(cCont) <> "Label" And TypeName(cCont) <> "Frame" Then
 temp = TypeName(cCont)
' Cells(1, Count).Value = cCont.Value
 myArray(Count) = cCont.Value
            
            
Count = Count + 1
End If
10      Next cCont

'Manipulate columns like this:-
myArray(0) = myArray(24)

Range("A1", Cells(1, Me.Controls.Count)).Value = myArray

Unload Me
End Sub