Olá.

Estou desenvolvendo um formulário para acelerar o processo repetitivo de digitação no trabalho, porém encontrei um problema que não consigo pensar em uma saída.

Meu formulário terá 65 mini-textbox que hora será preenchido 20, outra apenas 10, outra 15... Porém o único código que conheço não foi suficiente para realizar essa tarefa, uma informação sempre se sobrepões a outra na mesma linha:

Private Sub Button_Validar_Click()

   Dim linha As Integer
    
    linha = Sheets("OS").Range("A5007").End(xlUp).Offset(1, 0).Row
    
    If TextBox2 <> Empty Then
    Sheets("OS").Range("A" & linha).Value = DateValue(txtData.Value)
    Sheets("OS").Range("B" & linha).Value = txtCidade.Value
    Sheets("OS").Range("C" & linha).Value = TxtContrato.Value
    Sheets("OS").Range("D" & linha).Value = txtOS.Value
    Sheets("OS").Range("E" & linha).Value = cb_tiposer.Value
    Sheets("OS").Range("H" & linha).Value = TextBox2.Value
    Sheets("OS").Range("I" & linha).Value = "CRIC0022"
    End If
       
    If TextBox3 <> Empty Then
    
    Sheets("OS").Range("A" & linha).Value = DateValue(txtData.Value)
    Sheets("OS").Range("B" & linha).Value = txtCidade.Value
    Sheets("OS").Range("C" & linha).Value = TxtContrato.Value
    Sheets("OS").Range("D" & linha).Value = txtOS.Value
    Sheets("OS").Range("E" & linha).Value = cb_tiposer.Value
    Sheets("OS").Range("H" & linha).Value = TextBox3.Value
    Sheets("OS").Range("I" & linha).Value = "CRIC0018"
    End If
     
       
End Sub

O código acima precisaria executar a seguinte tarefa: Se a TextBox2 estiver vazia, não preenche nada, mas caso esteja preenchida, a próxima linha em branco recebe os valores e pula para a segunda Textbox e assim até o final de todas as outras.

Mas o que atualmente acontece, é que a ultima textbox prevalece. O que devo fazer para que as preenchidas sejam aplicadas na planilha uma após a outra e as vazias ignoradas?