Excel VBA：ランタイムエラー438

Question

ボタンを作成し、マクロを割り当てようとしました。 私はそれが言うマクロを実行するためのボタンを押すと：

エラー438

ランタイム：オブジェクトはこのプロパティまたはメソッド

し、次のコード行をサポートしていませんが、マークされます：

ここで

With Sheets("1. Stock & Demand") 
    .Range("F3:F3").End(xlToRight).Offset(-2, 1).Paste 
End With 

いっぱいコード：

Sub NeuerTag() 

'Abfrage ob der Tag eingefügt werden soll, No = QUIT' 
If MsgBox("Möchtest du die Tabelle vorbereiten?", vbYesNo) = vbNo Then Exit Sub 

'Copies the last three coloumns of the Worksheet 1. Stock & Demand' 
With Sheets("1. Stock & Demand") 
Lastcol = .Cells(1, .Columns.Count).End(xlToLeft).Column 
.Columns(Lastcol - 1).Resize(, 1).Copy 
End With 

'Selects the first empty cell in 1. Stock & Demand and pastes' 
With Sheets("1. Stock & Demand") 
.Range("F3:F3").End(xlToRight).Offset(-2, 1).Paste 
End With 

'Pastes the Today()' 
With Sheets("1. Stock & Demand") 
.Range("F3:ZZ3").End(xlToRight).Offset(-1, 0).Value = Date 
End With 

'Paste Special - Values' 
With Sheets("1. Stock & Demand") 
Lastcol = .Cells(1, .Columns.Count).End(xlToLeft).Column 
.Columns(Lastcol - 3).Resize(, 1).PasteSpecial Paste:=xlPasteValues 
End With 

End Sub 

Answer 1

私は思いますその.offsetは持っていない.pasteメソッドを使用してください.pasteSpecial