Preciso criar uma macro que ao rodar, ela preencha todas as células vazias com o que estão acima delas: Segue print como exemplo
inserir a descrição da imagem aqui
'Macro que tenho até o momento, porém não está dando certo, alguém pode me ajudar?
Sub FillCellsFromAbove()
' Turn off screen updating to improve performance
Application.ScreenUpdating = False
On Error Resume Next
' Look in column A
With Columns(1)
' For blank cells, set them to equal the cell above
.SpecialCells(xlCellTypeBlanks).Formula = "=R[-1]C"
'Convert the formula to a value
.Value = .Value
End With
Err.Clear
Application.ScreenUpdating = True
End Sub
r.com/IXYFP.png