Excelにてシート1のデータをシート2の集計表に反映させるには？Part2 - Office系ソフト - 教えて！goo

昨日、下記のようなシート1の入力用の表で
X列のX1の月を変更するごとに
月毎にしたシート2の集計表のX1で変更した月列へ
コピーする方法を教えて頂き、
無事完成させることが出来ました。
しかし、新たな問題が発生して困っています。
前回も記載しましたが、シート1はこうです。

　　　　A　・・　　　　X　 　 Y　　・　・　・
1　　　　　　　　　　4月
2　大阪支店 　 220万
・
8　奈良支店 　 150万
・
14　京都支店　 180万
・
20　神戸支店　 200万
・
26　滋賀支店　 110万
・
32　岐阜支店　 140万
・
38 　 計　　 　 　1000万
・
・

そして、シートコピーする為のプログラムはこうです。

Private Sub CommandButton1_Click()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim r1 As Range, r2 As Range

Set ws1 = Worksheets("Sheet1")
Set ws2 = Worksheets("Sheet2")

With ws1
Set r1 = .Range(.[X2], .Cells(Rows.Count, "X").End(xlUp))
End With

Set r2 = ws2.Rows(1).Find(What:=ws1.Range("X1").Value, LookIn:=xlValues, _
LookAt:=xlWhole)

If r2 Is Nothing Then
MsgBox "見つかりませんので" & vbLf & "終わります。"
Exit Sub
End If

r2.Offset(1).Resize(r1.Rows.Count).Value = r1.Value
End Sub

お礼をした時点では、出来ませんでした。と記載したのですが
それからさらに何度も取り組んだ結果、無事完成する事が出来ました。
(昨日ご回答頂いた方、大変ありがとうございました。
この場をお借りしてお礼申し上げます。)
しかし、ここからが問題なのですが、
最後のX列にもう1列追加し、2行を一緒にコピーしたいのです。
X列の3行目に18日、Y列の3行目に20日
と勤務日数を追記したいのです。
月、金額部分はX列とY列を行ごとにセル結合しているのですが、
上記の"X"というプログラムでも
X列に記載した、18日はチャントコピーされます。
しかし、結合していないY列の20日という日付はコピーされません。
"X"の部分を"X:Y"としてみたり、
自分なりに色々やってみましたが、出来ませんでした。
どうやれば2列のコピーが可能なのでしょうか？
前回同様、シート1,シート2共に行,列は同じ列間、同じ行間です。
説明不十分で申し訳ないのですが、もしお手数でなければ、
前回の記載文を見ていただけると幸いです。
タイトルは今回と同様です。(勿論Prat2はつけてません)
何卒宜しくお願い致します。