横から失礼します。
ご指摘のあったとおりです。
コピー元でしたか。
c.Offset(, -1).Resize(1, 5).Copy
ですね。
私はシートが指定していない所が気になりました。
間違いではないのですが、読んでいて落ち着かないです。
Dim ws As Worksheet
Worksheets.Add After:=Worksheets(Worksheets.Count)
Set ws = ActiveSheet
としておいて、
c.Offset(, -1).Resize(1, 5).Copy Destination:= _
ws.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0)
などとすると良いと思います。