VBA Concatenate problem

Sub snb()
  Thisworkbook.sheets("Output").copy
   With Activeworkbook
     .saveas .....
     With .sheets(1)
       .name="overtime_csv"
       .cells(1,7).currentregion.resize(,1) = Evaluate(Replace(.cells(1,7).currentregion.resize(,1).Address & " & ~_ ~& " & .cells(1,7).currentregion.resize(,1).offset(,1).Address, "~", Chr(34)))
       .columns(8).delete
     end with
     .Save
   End With
End Sub