Excelマクロのコピー先の行の式を上書きせずに行の値を複写する

Question

現在の月の行のデータを下にコピーするマクロを作成しようとしています。現在の月の行にはセル内にリンクがあるので、リフレッシュすると、日付とデータは新しい月（sept - 16）に変更されますが、リフレッシュされる前に、下の一致する月にデータをコピーします。残高欄には、各セルに合計数量の式があります。どのようにバランスセルの数式を上書きすることなく、値だけをコピーしますか？ここ

私は

Sub CopyData() 
Dim compareValue As String 
Dim comparingValue As String 
Dim i As Long 
compareValue = Cells(2, 2).Value 

For i = 3 To Rows.Count 
    comparingValue = Cells(i, 2).Value 
    If compareValue = comparingValue Then 
     Sheets("Sheet1").Range("C2:J2").Copy 
     lRow = Range("C" & Rows.Count).End(xlUp).Row 
     Range("C" & lRow + 1, "J" & lRow + 1).PasteSpecial xlPasteValues 
    End If 
Next i 
End Sub 

Answer 1

が直接値転送を使用していたコードです。

with worksheets("Sheet1").cells(i, "C").resize(1, 8) 
    worksheets("another sheet").cells(rows.count, "C").end(xlup).offset(1, 0).resize(1, 8) = .value 
end with