I have a vb that I got it work in other workbook and sheet. But I am trying to use it on a new worksheet and it will not work. Can some help me with it or give me a formulas that will do the same thing.
Code:
Sub copy()
Dim varData As Variant
Dim i As Long
varData = Sheet1.Range("C2:C4000") '// Read in the data.
For i = LBound(varData, 1) + 2 To UBound(varData, 1)
If IsEmpty(varData(i, 1)) Then
'// Cell is empty. Copy value from above.
varData(i, 1) = varData(i - 1, 1)
End If
Next i
'// Write result to sheet.
Sheet1.Range("B2").Resize(UBound(varData, 1) - LBound(varData, 1) + 1, 1) _
= varData
End Sub