Battaglia Navale... un po' più complessa!

Option Explicit
Sub CreaCombinazioneCodice()
    Dim nom    As Long
    Dim tip    As Long
    Dim var    As Long
    Dim riga   As Long
    Dim codice As String
    Dim codNom As String
    Dim codTip As String
    Dim flagTip As Boolean
    riga = 1                                      'prima riga da cui inserire i codici in Foglio2
    For nom = 10 To Cells(Rows.Count, 3).End(xlUp).Row 'da riga 10 a ultimo nome
        codNom = Cells(nom, 3).Value
        codice = codNom
        flagTip = False
        For tip = 6 To 13                             'da colonna F a M per tipologia
            If Cells(nom, tip) = "" Then GoTo saltaTip
            flagTip = True                            'segnala che vi sono tipologie
            codTip = codice & Cells(9, tip).Value
            codice = codTip
noTip:
            For var = 15 To 19                        'da colonna O a S per variante
                If Cells(nom, var) = "" Then GoTo saltaVar
                Sheets("Foglio2").Range("A" & riga) = codice & Cells(9, var).Value
                riga = riga + 1
                codTip = codNom                       'regredisci per nuova variante
saltaVar:
            Next var
            codice = codTip                           'regredisci per nuova tipologia
saltaTip:
        Next tip
        If flagTip = False Then
            flagTip = True
            GoTo noTip                            'continua con le varianti
        End If
        codice = ""                                   'azzera codice per nuovo nome
    Next nom
    MsgBox "Fatto!"
End Sub

MsgBox "Fatto! creati " & riga - 1 & " codici."