Tenho uma planilha que é inseridos dados novos todos os dias em seguida efetuo oum proc.v para verificar a situação do item. Efetuei o processo através de macro no entanto não obtive o sucesso total no que eu queria. Gostaria da ajuda para simplificar este processo.

Utilizo a celula J2 como referência, em seguida procuro a última celula com dados preenchidos, depois utilizo a celula anterior e a preencho com um OK.

Gostaria de preencher as células vazias desta coluna com OK.

Segue macro utilizada:

Range("J2").Select
If ActiveCell.Offset(0, 1).FormulaR1C1 = "" Then
ActiveCell.Offset(0, 1).Select
Else
Selection.End(xlToRight).Offset(0, 0).Select
End If
If ActiveCell.Offset(1, 0).FormulaR1C1 = "" Then
ActiveCell.Offset(1, 0).Select
Else
Selection.End(xlDown).Offset(0, -1).Select
End If
Selection = ("OK")
Selection.Copy
Range(Selection, Selection.End(xlUp)).Select
ActiveSheet.Paste

End Sub