With Sheets("Company").Activate
With Range("b5", Range("b" & Rows.Count).End(xlUp))
x = .Cells(1).End(xlToRight).Offset(1).Address(0, 0)
lastrow = Cells(Rows.Count, 4).End(xlUp).Row
Range("b6").Formula = "=" & x & "*$c$1"
Range("b6").AutoFill Destination:=Range("b6:b" & lastrow)
lastrow = Cells(Rows.Count, 2).End(xlUp).Row
Range("c6").Formula = "=$C$2 * b6"
Range("c6").AutoFill Destination:=Range("c6:c" & lastrow)
Range("b5").End(xlDown).Select
Selection.Copy
Range("c3").Select
Selection.pastespecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("c5").End(xlDown).Select
Selection.Copy
Range("c4").Select
Selection.pastespecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
End With
Bookmarks