macros in excel

I have data

1 1 2 5
2 1 1 2 4 5 6 8
3 5 2 1 8 9 2 5
4 1 2 1 1 1
5 8 1 2 1 1 1 2 2
6
7
8
9
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

i classified in column and row for this next codig

VB Code:

Public Sub Contar()
 
    Dim i As Integer
    Dim j As Integer
    Dim c As Integer
    For i = 3 To 30
        For j = 2 To 56
            If Cells(i, j).Value <> "" Then
                c = c + 1
                Cells(35 + c, 5).Value = Cells(i, j).Value
                Cells(35 + c, 6).Value = Cells(i, 1).Value
                Cells(35 + c, 7).Value = Cells(31, j).Value
                
                
                
            End If
        Next
    Next
End Sub

but i need save in other sheet

Darwin Gomez.