VBA処理後に値のみコピーと削除がしたいです。

コード
```dataというシートに
会社名・注文番号（連番）・注文年・注文月・注文日（この3つは整数でリストから選択）
品名・数量・単価（税抜き）・納品年・納品月・納品日（この3つもリストから選択）
納品場所・支払方法・備考

A2からデータを1年間入力します。

このdataを1月～12月というシートに振り分けたいです。

分けるのは注文月の数字で4なら4月という風にデータを月毎に振り分けるにはどうしたらいいのでしょうか？
月のシートは
注文内容・会社名・注文番号・注文日（こちらは日付表示）納品日（これも日付表示）代金（単価の税込金額）

うまく説明できませんが宜しくお願いします。


dataシート
  　 A       　B　　　　 C　　　D　　　　E　　　F　　　C　　　G　　　　H　　　I　　　　J　　　K　　　　　L　　　　　M　　 N O P Q R S T U V W X Y Z  AA  AB  AC  AD  AE  AF  AG  AH  AI  AJ 　AK 　AL 　　AM 　　AN 　　　AO 　　 AP 　　　AQ 　　　AR　 　　AS 　　　　AT 　　　AU 
1 会社名　　注文番号　注文年　注文月　注文日　品名　　数量　　単価　納品年　納品月　納品日　納品場所　支払方法　　備考   ～　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　№　内容　業者　番号　注文書　　注文日　発行　　要・不要　受領日　税込価格　　支払日　　備考
2　ああ　　　20001　　　2020　　4　　　　1　　　あ　　　1　　　100　　2020　　4　　　　2　　　あああ　　　振込　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　1　　
3　いい　　　20002　　　2020　　4　　　　25　　 あ　　　1　　　200　　2020　　4　　　　26　　 いいい　　　振込　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　2
4　ああ　　　20003　　　2020　　4　　　　27　　 い　　　1　　　100　　2020　　4　　　　28　　 ううう　　　振込　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　3　　　　　　　　　　　　　　　　　　　　　　　　　　　　
5　うう　　　20004　　　2020　　5　　　　1　　　う　　　1　　　250　　2020　　5　　　　2　　　いいい　　　振込　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　1
6　いい　　　20005　　　2020　　5　　　　24　　 あ　　　1　　　320　　2020　　5　　　　25　　 あああ　　　振込　　


4月シート
　　A　　B　　C　　　D　　　I　　　　F　　　G　　　　H　　　　　I　　　J　　　　　K　　　　　L
1　№　内容　業者　番号　注文書　　注文日　発行　　要・不要　受領日　税込価格　　支払日　　備考
2　1　
3　2　
4　3

5月
　　A　　B　　C　　　D　　　I　　　　F　　　G　　　　H　　　　　I　　　J　　　　　K　　　　　L
1　№　内容　業者　番号　注文書　　注文日　発行　　要・不要　受領日　税込価格　　支払日　　備考
2　1　
3　2　

～

6月～12月　


       Sub main()
    Dim c As Range, sht As Worksheet
    For Each c In Sheets("data").Range("W2:W" & Rows.Count).SpecialCells(2)
        Do
            For Each sht In Worksheets
                If sht.Name = c.Value & "月" Then
                    c.EntireRow.Copy sht.Range("A" & Rows.Count).End(xlUp).Offset(1)
                    Exit Do
                End If
            Next sht
            Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = c.Value & "月"
            Sheets("data").Rows(1).Copy Worksheets(Worksheets.Count).Range("A4")
        Loop
    Next c


Application.CutCopyMode = False



End Subード