title: Copy a cell on one sheet and paste it on another VBA based on cell from each sheet matching
body: <p>I am hoping someone can help me out here. I have the below code returning an error message when I run it. I have a report that I import every hour into Sheet2. I need to take the value in cell D16 and copy it. Then I need to match Sheet2!A2 to the cell in Row 1 on Sheet3 and paste the data under the corresponding column.</p>
  
  <p>I would appreciate any input or suggestions to resolve this.</p>
  
  <p>Thanks in advance!</p>
  
  <pre><code>Sub CopyPaste()
  Dim ws1 As Worksheet, ws2 As Worksheet, rng As Range, frng As Range
  
  Set ws1 = Worksheets("Sheet2")
  Set ws2 = Worksheets("Sheet3")
  Set rng = ws1.Range("D16")
  Set frng = ws2.Rows(1).Find(What:=Range("Sheet2!A2"), After:=Range("Sheet3!A1"), LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
           , SearchFormat:=False)
  
  rng.Copy
  frng.Offset(1, 0).PasteSpecial (xlPasteValues)
  Application.CutCopyMode = 0
  </code></pre>
  
  <p>End Sub</p>