macro to insert a formula in a column

  • Thread starter Thread starter Bryan Kelly
  • Start date Start date
B

Bryan Kelly

This is my first attempt at writing macros.

I need to import comma separated text files from a control device. However,
there are a number of rote preparations that must be done before the data
can be analyzed. The first is to create a column and format it as a number
with one decimal place. Cell C1 is the column header and C2 is given the
value 0.0. Cell C3 is given the formula C2 + 0.1. C3 is selected and
copied with ctl-V. C4 is selected, then I use the scroll bar to go to the
bottom of the valid data and shift-left click on Cn. A ctl-V fills the
column. This is time based data collected at 10 Hz so now I have an elapsed
time column.

The problem: How do I write a macro that can find that last row of valid
data in column C?

Thank you,
 
To fill column C to the last filled row in column B:

Sub AutoFillToLastRow()
Dim r As Long
r = Cells(Rows.Count, 2).End(xlUp).Row
Cells(3, 3).AutoFill _
Destination:=Range(Cells(3, 3), Cells(r, 3))
End Sub
 
Back
Top