“Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning.”
-Rick Cook
Sub Fill_Blanks()
Dim col As Long
Set wks = ActiveSheet
With wks
col = ActiveCell.Column
‘or
‘col = .range(“b1″).column
Set rng = .UsedRange ‘try to reset the lastcell
LastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row
Set rng = Nothing
On Error Resume Next
Set rng = .Range(.Cells(2, col), .Cells(LastRow, col)) _
.Cells.SpecialCells(xlCellTypeBlanks)
On Error GoTo 0
If rng Is Nothing Then
MsgBox “No blanks found”
Exit Sub
Else
rng.FormulaR1C1 = “=R[-1]C”
End If
‘replace formulas with values
With .Cells(1, col).EntireColumn
.Value = .Value
End With
End With
End Sub
I love visual basic… yes its having the word basic..but its so much more than that now!!
Many times when you export data from internet or just plain copy-paste when nothing else works, most of the HTML carries itself with the data into excel. Heres some code to remove hyperlinks from a column in excel.
**************
Sub RemoveHyperlink()
Dim Cell As Range
For Each Cell In Intersect(Selection, ActiveSheet.UsedRange)
On Error Resume Next
Cell.Hyperlinks.Delete
Next Cell
End Sub
**********************
All you gotta do you run the macro after selecting the range of cells with hyperlinks 
