You aren't using Aaron's Function correctly

Find_Range("Yes", Range("W13:W100")).EntireRow.Select
Selection.Copy Worksheets("Journal").Cells(Rows.Count, 1).End(xlUp)