"unknown error" on vba script

"unknown error" on vba script

Any idea why I get "unknown error" on line 32?

  1. Option Explicit
  2. Sub updateCSV()

  4. Dim wb As Workbook
  5. Dim ws As Worksheet
  6. Dim newWS As Worksheet
  7. Dim i As Long
  8. Dim z As Long
  9. Dim lr As Long
  10. Dim desc As Variant, created As Variant, amt As Variant, fee As Variant

  12. 'Set Objects
  13. Set wb = ActiveWorkbook
  14. Set ws = wb.ActiveSheet
  15. Set newWS = Sheets.Add

  17. 'Vars -> Assumes headers are in row 1
  18. desc = Application.Match("Customer Description", ws.Rows(1), 0)
  19. created = Application.Match("Created (UTC)", ws.Rows(1), 0)
  20. amt = Application.Match("Amount", ws.Rows(1), 0)
  21. fee = Application.Match("Fee", ws.Rows(1), 0)
  22. z = 1

  24. 'Format newWS
  25. With newWS
  26.     .Cells(1, 1).Value = "description"
  27.     .Cells(1, 2).Value = "date"
  28.     .Cells(1, 3).Value = "Amount"
  29. End With

  31. 'Get data from ws
  32. With ws
  33.     lr = .Cells(.Rows.Count, 1).End(xlUp).Row
  34.     'Assumes data starts at row 2 and headers are on row 1
  35.     For i = 2 To lr
  36.         z = z + 1
  37.         newWS.Cells(z, 1).Value = ws.Cells(i, desc).Value
  38.         newWS.Cells(z, 2).Value = Format(ws.Cells(i, created).Value, "mm/dd/yyyy")
  39.         newWS.Cells(z, 3).Value = ws.Cells(i, amt).Value
  40.     Next i
  41.     'Add values back
  42.     For i = 2 To lr
  43.         z = z + 1
  44.         newWS.Cells(z, 1).Value = "stripe fee: " & ws.Cells(i, desc).Value
  45.         newWS.Cells(z, 2).Value = Format(ws.Cells(i, created).Value, "mm/dd/yyyy")
  46.         newWS.Cells(z, 3).Value = ws.Cells(i, fee).Value * -1
  47.     Next i
  48. End With

  50. 'Fit
  51. newWS.Columns.AutoFit

  53. End Sub