VBA Paste data in the next Blank cell

[Villalobo]

Hi all,

First of all thank you for viewing my thread. I am new to VBA, I use Excel everyday but recently I decided to learn about VBA ( just noticed VBA,SQL is the future). I am trying to tell my macro that it should paste the date copied in a different tab below the last cell with data. I tried with the macro recorder the following:

Sub Copy_All()
'
' Copy_All Macro
'


'
Selection.AutoFilter
ActiveSheet.Range("$C$16:$U$451").AutoFilter Field:=19, Criteria1:="No"
Range("C113").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Log").Select
Range("C5").Select
Range(Selection, Selection.End(xlDown)).Select
Range("C24").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

I cant get it to paste below. I am sorry to bother you all with this, I'm really trying to learn; I'm currently listening to the podcasts from episode 1 etc.

any insight will be greatly appreciated.

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub Copy_All()
   With ActiveSheet
      If .AutoFilterMode Then .AutoFilterMode = False
      .Range("$C$16:$U$16").AutoFilter Field:=19, Criteria1:="No"
      .AutoFilter.Range.Offset(1).SpecialCells(xlVisible).Copy
      Sheets("new").Range("C" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
      .AutoFilterMode = False
   End With
   Application.CutCopyMode = False
End Sub