title: Excel VBA Copying and Pasting into Next Blank Row in Another Sheet
body: <p>I'm trying to record a macro using keystrokes only and am coming across an issue on my final keystroke as it is not doing what I expect it to be. A little background in what I am doing - I am working with growing data and a rolling graph to graph the last 4 rows of data. I am trying to copy data from one sheet and paste it onto the next empty row on my table in another sheet. Because I'm using keystrokes, I expected the macro to record the number of clicks but this is not what it's doing. Instead it pastes the data right over the exact cell that the macro was recorded in and not the empty cell below it. For example, I have data in C19 already. When I run the macro, I expect it to paste the new data into C20 but instead it pastes over C19. I think I need to add/edit my VBA so that it will paste the new data into the next empty row in another sheet. I hope this made sense. Any help will be much appreciated! </p>
  
  <p>Thank you!!</p>
  
  <pre><code>Range("A1").Select
  Selection.End(xlDown).Select
  Selection.End(xlToRight).Select
  Range("C3").Select
  ActiveCell.FormulaR1C1 = "=DATE(YEAR(RC[-1]), MONTH(RC[-1])+1, DAY(RC[-1]))"
  Range("C3").Select
  Selection.Copy
  Range("B3").Select
  Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
      False, Transpose:=False
  Range("C3").Select
  Application.CutCopyMode = False
  Selection.ClearContents
  Range("A1").Select
  Selection.End(xlDown).Select
  Selection.End(xlDown).Select
  Selection.End(xlDown).Select
  Selection.End(xlDown).Select
  Range("B85:K146").Select
  Selection.Copy
  Range("A1").Select
  Selection.End(xlDown).Select
  Selection.End(xlDown).Select
  Selection.End(xlDown).Select
  Selection.End(xlUp).Select
  Range("B9").Select
  Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
      False, Transpose:=False
  Range("A1").Select
  ActiveSheet.Next.Select
  Range("A1").Select
  Selection.End(xlDown).Select
  Selection.End(xlDown).Select
  Selection.End(xlDown).Select
  Selection.End(xlToRight).Select
  Range("E71:G71").Select
  Application.CutCopyMode = False
  Selection.Copy
  Range("A1").Select
  ActiveSheet.Next.Select
  Range("A1").Select
  Selection.End(xlDown).Select
  Selection.End(xlDown).Select
  Selection.End(xlToRight).Select
  Selection.End(xlToLeft).Select
  Selection.End(xlUp).Select
  Selection.End(xlUp).Select
  Selection.End(xlDown).Select
  Selection.End(xlToRight).Select
  Selection.End(xlToRight).Select
  Selection.End(xlToLeft).Select
  Range("C5").Select
  Selection.End(xlDown).Select
  Selection.End(xlDown).Select
  Selection.End(xlDown).Select
  Selection.End(xlDown).Select
  Selection.End(xlDown).Select
  Range("C19").Select
  Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
      False, Transpose:=False
  </code></pre>
  
  <p>End Sub</p>