教えてください マクロがうまくいきません

Sub Sample1()
Dim lastRow As Long, wS As Worksheet
Set wS = Worksheets("Sheet2")
lastRow = wS.UsedRange.Rows.Count
If lastRow = 1 Then '
lastRow = 1
Else
lastRow = lastRow + 1
End If
Worksheets("Sheet1").Range("A1:O14").Copy wS.Cells(lastRow, "A")
End Sub

このマクロだと罫線も一緒に貼り付けられてしまい空欄の票の空欄もペーストされてしまいます。
値だけ貼り付けられるようにするにはどこを変えればいいのかわかりません。
教えてください。

No.2 回答者： kushiroshi 回答日時： 2015/03/05 14:52

>空欄の票の空欄もペーストされてしまいます。

この意味を補足したほうがいいですし、
https://oshiete.goo.ne.jp/qa/8936173.html
の質問は閉じた方がいいですよ。

この回答へのお礼

ありがとうございます。

お礼日時：2015/03/05 16:22

No.1 ベストアンサー 回答者： kushiroshi 回答日時： 2015/03/05 10:35

すみません。

>罫線も一緒に貼り付けられてしまい
これはわかります。

でも
>空欄の票の空欄もペーストされてしまいます。
これがわからないので正しくないかも知れません。


最後の部分、
Worksheets("Sheet1").Range("A1").CurrentRegion.Copy
wS.Cells(lastRow, "A").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
に置き換えたらどうです？

この回答へのお礼

ありがとうございます。
大変参考になりました。

お礼日時：2015/03/05 11:25