I am trying to get to multiply two columns based on the header name (can change position every time - so a fixed cell range does not work). 

So far, I got the following piece

```
Dim ws As Worksheet
Dim lrow As Long
Dim Amount, Bill, USD As Range
Dim Rngheaders As Range

Set ws = ThisWorkbook.Sheets("CSV Data PR")
Set Rngheaders = ws.Range("1:1")
lrow = ws.Cells(Rows.Count, 1).End(xlUp).Row - 1

Set Amount = ws.Rows(1).Find(What:="Amount")
Set Bill = ws.Rows(1).Find(What:="Bill.qty")
Set USD = ws.Rows(1).Find(What:="In USD")

ws.Range(USD.Address).Offset(1, 0).Resize(lrow) = Range(Amount.Address).Offset(1, 0) * Range(Bill.Address).Offset(1, 0)

```

This works, except for the fact that it only ever calculates row 2 (I need it to calculate row by row).

**Desired** output should look something like:

[![Output](https://i.stack.imgur.com/1SriK.png)](https://i.stack.imgur.com/1SriK.png)