What do I need to correct in this macro? I am getting a bug in the string: .Cells(1, 2).Resize(, .Rows.Count).Value =


Dim myAreas As Areas, myArea As Range
With Range("a1", Range("a" & Rows.Count).End(xlUp))
On Error Resume Next
Set myAreas = .SpecialCells(2).Areas
End With
On Error GoTo 0
If myAreas Is Nothing Then Exit Sub
For Each myArea In myAreas
With myArea
If .Rows.Count > 1 Then
.Cells(1, 2).Resize(, .Rows.Count).Value = Application.Transpose(.Value)
Else
.Cells(1, 2).Value = .Value
End If
End With
Next