Apply to selected columns

I'm using the following code to fill in blanks in a table. The table has anywhere from 1-5 columns with blanks I need to fill. Currently the code only fills in one column at a time. How do I change it so I can select a number of columns and only run the macro once?

Sub FillColBlanks()
'by Dave Peterson  2004-01-06
'fill blank cells in column with value above
'http://www.contextures.com/xlDataEntry02.html
Dim wks As Worksheet
Dim rng As Range
Dim LastRow As Long
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

It's on one worksheet, anywhere from 3-8 columns and up to 500 rows. Not sure if that answers your question...

Originally Posted by shg

Is it the entire used range of the sheet?

No...it's always the first column, and usually the second and third...sometimes others, but the last 2 columns don't have any blanks.

Much easier way than a macro.
Highlight your whole area
-Edit-GoTo (or Control G)
-Special
-choose Blanks (all blanks are highlighted)
Then put in what ever you want in the blanks (n/a, or whatever) and instead of pressing enter press Control Enter which will fill all blanks.

Originally Posted by kzmr1234

Much easier way than a macro.
Highlight your whole area
-Edit-GoTo (or Control G)
-Special
-choose Blanks (all blanks are highlighted)
Then put in what ever you want in the blanks (n/a, or whatever) and instead of pressing enter press Control Enter which will fill all blanks.

That's what I have been doing...but when I try to train that to my folks who are not so comfortable with computers, they don't understand. I was thinking it might be easier if I had a button with the macro attached to it and all they'd have to do is highlight the columns they wanted and click the button...

Ok so i just recorded a macro of the Edit > GoTo function...I don't know if that's the same thing as the macro I had copied, but it seems to work....

As long as the cells were highlighted before the macro was run...and...your people know to highlight their cells in the area before running the macro.