Hi
Sub kTest()
On Error Resume Next
Columns(1).SpecialCells(4).FormulaR1C1 = "=r[-1]c"
Columns(1) = Columns(1).Value
On Error GoTo 0
End Sub
Kris
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Pl
Hi,
Try the following code
Sub Fill_In_The_Blanks()
Dim i As Long
For i = 1 To 1
If Cells(i, 1) = "End" Then
Exit For
Else
If Cells(i, 1) = "" Then
Cells(i, 1) = Cells(i - 1, 1)
End If
End If
Next i
End Sub
The above code would require you to specify where the data en
