Excel VBA構文エラーとコンパイルの問題

Question

私はセルにデータを取り込み、次のシートの日付を検索し、A2から値を貼り付けるマクロを取る単純なcopy + paste値を開発しようとしています：X2は日付を見つける。

サブCopy_PasteVal（）

Dim dDate As Range 
Dim shtTrack As Worksheet 
Dim shtData As Worksheet 
Dim c As Range 
Dim DestCell As Range 

Set shtdata = Sheets(“Daily Total”) 
Set shtTrack = Sheets("Overall Daily Tracking") 
Set dDate = shtData.Range(“A2”) 

Worksheets("shtData").Range("A2:X2").Copy 
With Worksheets(shtTrack).Range("a1:a1000") 
    Set DestCell = .Find(dDate, LookIn:=xlValues) 
End With 
Worksheets(“shtTrack”).Range(DestCell).PasteSpecial Paste:=xlPasteValues 

End Subの

それはコンパイルしていないと私はVBAでのコーディングを見つけ出すそこに助けることができるから、私はいくつかの達人を願っています！

Answer 1

編集：私はそれを後方に持っているかもしれませんか？また、列Aを消去しようとしているかどうかもわかりません。

Dim dDate 
Dim shtTrack As Worksheet 
Dim shtData As Worksheet 
Dim c As Range 
Dim DestCell As Range 

Set shtData = Sheets("Daily Total") 
Set shtTrack = Sheets("Overall Daily Tracking") 
dDate = shtData.Range("A2").Value 
Set c = shtData.Range("A2:X2") 

With shtTrack.Range("a1:a1000") 
    Set DestCell = .Find(dDate, LookIn:=xlValues) 
    If Not DestCell Is Nothing Then 
     r = DestCell.Row 
    Else 
     Exit Sub 
    End If 
End With 

With shtTrack 
    .Range(.Cells(r, 1), .Cells(r, 24)).Value = c.Value 
End With