Copy data

[lafrenie]

I have a table with data in column A and B. In column C1 I have a formula that multiplies A1 by B1. I want the code that will allow me to copy this formula in column C for as long as there is data in column A. How should I do this ?

 

[VoG]

Try

Sub Cpy()
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("C1").AutoFill Destination:=Range("C1:C" & LR)
End Sub

 

[lafrenie]

Thks

 

[lafrenie]

After I copy the formula, I want to create a pivot table selecting data from column A to D until this last row of data in column A. I have tried the below but it is not working. Can you help ?




Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("d2").AutoFill Destination:=Range("d2:d" & LR)
Selection.NumberFormat = "#,##0_);[Red](#,##0)"
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
".csv data(1)!R1C1" & LR).CreatePivotTable TableDestination:="", _
TableName:="Tableau croisé dynamique1", DefaultVersion:= _
xlPivotTableVersion10