Run-time error: '1004'

Hello. I am facing a problem.
Some lines of my code go like this:

  
    Dim sourcePHO As String
   sourcePHO = Replace(sourcews.Range("N" & i).Value, "(mplampla)", "")
   sourcePHO = Replace(sourcews.Range("N" & i).Value, "(mplampla2)", "")
   sourcePHO = Replace(sourcews.Range("N" & i).Value, "(mplampla3)", "")
   sourcePHO = Replace(sourcews.Range("N" & i).Value, "(mplampla4)", "")
   sourcePHO = Replace(sourcews.Range("N" & i).Value, "(mplampla5)", "")
    destws.Range("AG" & i).Value = sourcePHO
    Application.DisplayAlerts = False
    destws.Range("AG2", Range("AG" & i).End(xlUp)).TextToColumns Range("AH2"), xlDelimited, , , , , True
    Application.DisplayAlerts = True

When i run the code Run-time error: '1004' shows up on line: destws.Range("AG2", Range("AG" & i).End(xlUp)).TextToColumns Range("AH2"), xlDelimited, , , , , True

Does anyone know what's wrong with that?
Thanks in advance