Hi..I found this code on the web and it works great I just need to
find a way to expand it to all the other columns without having to
copy it some 26 times for each new column I want copied..Need help
understanding how to write the code so I can do this once for all my
columns that go all the way to BK

Public Sub filldown()
Dim LRow As Integer
LRow = Range("B" & Rows.Count).End(xlUp).Row
Range("A3").Select
Selection.AutoFill Destination:=Range("A3:A" & LRow),
Type:=xlFillDefault
Range("C3").Select
Selection.AutoFill Destination:=Range("C3:C" & LRow),
Type:=xlFillDefault
End Sub

On Mar 19, 1:54*pm, Thomp <williamth...@gmail.com> wrote:
> Hi..I found this code on the web and it works great I just need to
> find a way to expand it to all the other columns without having to
> copy it some 26 times for each new column I want copied..Need help
> understanding how to write the code so I can do this once for all my
> columns that go all the way to BK
>
> Public Sub filldown()
> * * Dim LRow As Integer
> * * * * LRow = Range("B" & Rows.Count).End(xlUp).Row
> * * * * Range("A3").Select
> * * * * Selection.AutoFill Destination:=Range("A3:A" & LRow),
> Type:=xlFillDefault
> * * * * Range("C3").Select
> * * * * Selection.AutoFill Destination:=Range("C3:C" & LRow),
> Type:=xlFillDefault
> End Sub

Hey Everyone..Figured it out..thanks anyway..Just needed to change
Range to C3:Bk3 and Autofill to C3:BK