Returning a 424 error with no cause
<p>I am getting a 424 error on a piece of VBA I am cleaning up. I didn't write all of this, but there doesn't seem to be any reason for this error to come up. Its excel for mac so of course it won't toggle the breakpoint for me 
: (
Any ideas would be very helpful</p>

<pre><code>Sub Transform()

Dim ws As Worksheet
Dim i, j As Long
Dim fndList, rpcList, endlist As Variant
Dim LastRow As Long
Dim c As Range

Application.ScreenUpdating = False

fndList = Array("1","2","3")
endlist = Array("x","y","z")
rpcList = Array("a","b","c")

Set ws = ActiveWorkbook.Sheets("Sheet2")

LastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row

With ws

Rows("1:1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows(1).Delete
Columns(2).EntireColumn.Delete

.Range("A1:P1") = endlist
.Range("A2:P2") = rpcList



For Each c In .Range("A4:A" &amp; LastRow)
   ActiveCell.Hyperlinks.Add Anchor:=cell, Address:="https://" &amp; cell.Value
Next c


For Each c In .Range("B4:B" &amp; LastRow)
    ActiveCell.NumberFormat = "[$-409]d-mmm-yy;@"
Next c


For Each c In .Range("C4:C" &amp; LastRow)
    ActiveCell.NumberFormat = "[$-409]d-mmm-yy;@"
Next c


For Each c In .Range("G4:G" &amp; LastRow)
    ActiveCell.Hyperlinks.Add Anchor:=cell, Address:="https://tool" &amp; cell.Value
Next c

Dim l As Integer
Dim larray(1 To 10) As Integer
Dim k As Integer
k = 1

For l = 3 To 600
If Cells(l, 2).Value &gt; Cells(l, 3).Value Then
    Cells(l, 2).ClearContents
    Cells(l, 3).ClearContents

End If
Next l

Dim h As Integer
h = 1

Dim m As Integer
For m = 3 To 600
If Cells(m, 2) &gt; Now() Then
   Cells(m, 2).ClearContents
   End If

If Cells(m, 3) &gt; Now() Then
   Cells(m, 3).ClearContents
   End If
Next m

End With
End Sub
</code></pre>