Pessoal, boa tarde.

Estou com um pequeno problema com variável. Fiz a seguinte declaração:

Dim m as Integer

m = Range("C2").value2

----------------------------------------------

Na celula c2 possuo um nº de matricula de funcionário que desejo copiar para celulas abaixo. Até encontrar uma célula que já esteja preenchida, e quando isso acontecer, a variável m adotará este novo valor e assim o código ira prosseguir até não encontrar mais células a serem preenchidas.

O problema é que para dar sequencia preciso limpar o valor da minha variável para que a mesma adquira novo valor. E testei o seguinte:

m = Empty
e
m = Erase

mas não funcionaram...

Segue meu código até o momento:

Sub intMatricula()

Dim m As Integer

Range("c2").Select 'selecionar a celula c2 e transforma em variável
m = ActiveCell.Value
ActiveCell.Offset(1, -2).Select 'seleciona a coluna A criada como chave guia do código

Do While ActiveCell.Select <> "" 'faz a primeira validação para rodar o código
ActiveCell.Offset(0, 2).Select 'volta a coluna B

If ActiveCell.Value2 = "" Then
ActiveCell.Value2 = m
ActiveCell.Offset(1, -2).Select
Else
MsgBox "pensar no restante..."
End If

Loop

End Sub

Desde já agradeço a ajuda de todos.