エクセルシートの集計ＶＢＡで値のみコピーしたい

Question

ＶＢＡ初心者です。よろしくお願いいたします。

前提・実現したいこと

エクセル複数の元データシートを合計シートに追加していく形でまとめたいです。
元データシートには数式の入ったセルがあり、元データシートや合計シートには関係のない、
第三者的シートを参照する式などが入っています。
合計シートは元データシートのデータをそのまま値コピーする形で追加していき、
最後にソートＡ列の年月日でソートしています。

発生している問題・エラーメッセージ

ＶＢＡで集計マクロを作成したのですが、
元データシートに入っている数式までコピーしてきてしまい、求める結果が出ません。
★値のみコピーしたいです。

Sub SAMPLE()
Dim sWS As Worksheet 'データシート（コピー元）
Dim dWS As Worksheet '集約用シート（コピー先）
Set dWS = Worksheets("集計")

'集約用シートの3行目以降を削除
dWS.UsedRange.Offset(2, 0).Clear

'各シートの2行目以降のデータを、集約用シートの末尾にコピー
For Each sWS In Worksheets

    If sWS.name = "シートA" Or sWS.name = "シートC" Then

    'If sWS.name <> dWS.name Then
        With sWS.UsedRange
        
            'コピー元シートにデータが1件以上ある場合
            If .Rows.Count > 2 Then
                .Offset(2, 0).Resize(.Rows.Count - 1).Copy _
                    Destination:=dWS.Cells(Rows.Count, 1). _
                                    End(xlUp).Offset(1, 0)

            End If
            
        End With
    End If
Next sWS
   
'集計用シートをA列で並べ替え
'dWS.UsedRange.Sort Key1:=Range("A1"), Header:=xlYes

End Sub

試したこと

下記をOffset(1,0)のあとに追加しましたが「構文エラー」でした。

.PasteSpecial _
Paste:=xlPasteValues

どこかに追加するのではないかと思うのですが、ご教授いただけると助かります。
よろしくお願いいたします。

Answer 1

ここを

.Offset(2, 0).Resize(.Rows.Count - 1).Copy _
Destination:=dWS.Cells(Rows.Count, 1). _
End(xlUp).Offset(1, 0)

こう

.Offset(2, 0).Resize(.Rows.Count - 1).Copy
dWS.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues

Comments

[maribo]

解決しました！ありがとうございました！！！