VBA subtracting two dates and creating a new column

[Palucci]

I have a function, I would like it to subtract dates from me and create a new column. However, it does not work, it shows me an error here

.Value = Evaluate("if({1}," & .Offset(, -2).Address & "-" & .Offset(, -1).Address & ","""")")

"Application - definied or object - definied error :

   With wbMe.Sheets("Arkusz3").Range("G2", Range("A" & Rows.Count).End(xlUp).Offset(, 1))
      .Value = Evaluate("if({1}," & .Offset(, -2).Address & "-" & .Offset(, -1).Address & ","""")")
   End With

 

[Fluff]

If you are trying to insert header names into row 1, then that is a totally different question & needs a new thread. Thanks