Run_time error '1004' Application-defined or object-defined error

[HockeyDiablo]

This halfway works and I get the error around the 4,000 record mark.

Sub Row2Column()
Dim rngData As Range, r As Range, myDate As Date, strName As String
Application.ScreenUpdating = False
With Worksheets("Sheet0")
.Columns("A:B").Insert
Set rngData = .Columns("D").SpecialCells(2)
For Each r In rngData.Areas
myDate = r(1, 1).Value
strName = r(3, 1).Value
r.Offset(3, -3).Resize(r.Rows.Count - 3, 1).Value = strName
r.Offset(3, -2).Resize(r.Rows.Count - 3, 1).Value = myDate
Next r
.Columns("A:B").AutoFit
End With
Application.ScreenUpdating = True
End Sub


Here is what I am trying to accomplish: 05.31.2016-13.20.09 - JamesStruss7324's library

Thank you