Duvida e Ajuda com Cadastro!

[AndersonRochaSilva]

Ola

Estou com o seguinte problema.

Tenho uma UserForm de cadastro onde há informações com Data, Solicitante, Função e Setor. Abaixo disso tenho mais alguns textbox onde é informado oque pego pelo solicitante. Na planilha onde é salvo as informações fica da seguinte forma, Data, nome, Função e unidade, 1º item. Logo abaixo Data, nome, Função e unidade, 2º item e assim por diante. porem quando é preenchido somente um item, ainda é salvo a Data, nome, Função e unidade referente aos demais itens porem estão vazias.

Queria saber com posso fazer para salvar somente quando o textbox referte ao intem estiver preenchido. Segue Script usado.

Private Sub CommandButton1_Click()

ThisWorkbook.Worksheets("SAVE").Activate

Range("A26").Select

Do

If Not (IsEmpty(ActiveCell)) Then

ActiveCell.Offset(1, 0).Select

End If

Loop Until IsEmpty(ActiveCell) = True

ActiveCell.Value = data.Value

ActiveCell.Offset(0, 1).Value = data.Value

ActiveCell.Offset(0, 2).Value = nome.Value

ActiveCell.Offset(0, 3).Value = função.Value

ActiveCell.Offset(0, 4).Value = unidade.Value

ActiveCell.Offset(0, 8).Value = iten1.Value

ActiveCell.Offset(1, 1).Value = data.Value

ActiveCell.Offset(1, 2).Value = nome.Value

ActiveCell.Offset(1, 3).Value = função.Value

ActiveCell.Offset(1, 4).Value = unidade.Value

ActiveCell.Offset(1, 8).Value = iten2.Value

ActiveCell.Offset(3, 1).Value = data.Value

ActiveCell.Offset(3, 2).Value = nome.Value

ActiveCell.Offset(3, 3).Value = função.Value

ActiveCell.Offset(3, 4).Value = unidade.Value

ActiveCell.Offset(3, 8).Value = iten3.Value

MsgBox "Gravado com Sucesso"

End Sub

Oque esta em verde só deve se salvo na planilha se o que esta em negrito estiver preenchido no formulario.

Desde já agradeço a ajuda de todos