忽略公式时，仅将包含数据的行复制到另一张纸上的最后一个空行

我试图从母版表复制包含数据的行，并将其粘贴到“历史记录”表的最后一个空行中。每一行都是一个输入，数据从A3：J3之间的单元格开始。有些单元格上面有公式，这会导致我如何在“主”表和“历史记录”表上找到包含数据的最后一行的问题。两个工作表具有相同的格式。据我所知：

Sub CopyToAnotherSheet()
Sheets("Master").Range("A3:J50").Copy
Sheets("History").Activate
Dim ws As Worksheet
    Dim rng1 As Range
    Set ws = ActiveSheet
    Set rng1 = ws.Columns(1).Find("*", ws.[a1], xlFormulas, , xlByColumns, xlPrevious)
          rng1.Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

它将复制一个范围并将其粘贴到复制的最后一个范围的末尾。