Excel 将非空白行从一个工作表范围复制到另一个工作表范围

嗨，我是VBA的初学者。我有个问题。我试图将数据从一个工作表范围A27:K35粘贴到另一个工作表范围A9:K17。有个小问题。用户不必输入所有行。他/她可以根据需要输入1-8个roaws。例如，如果工作表1中输入了A27:K30行，则应将该数据复制到工作表2中的A9:K12行，而不是复制空白。我设法写了一些东西，但它一次复制了所有8行。有人能帮我解决避免空白的问题吗

提交是一个带有宏的按钮，如工作表1所述

Sub Submit()

Range("A27:K35").Select
    Selection.Copy

    Sheets("Worksheet2").Select
    Range("A9:A17").Select
    Selection.Insert Shift:=xlDown

MsgBox "Data copied"

End Sub

---

您不需要选择要粘贴到的区域，只需选择第一个单元格，下面的代码将复制区域A27:K35 然后将其粘贴到A列工作表2中的第一个空行2

   Dim sh As Worksheet
    Set sh = Worksheets("Worksheet2")
    ActiveSheet.Range("A27:K35").Copy Destination:=sh.Cells(Rows.Count, "A").End(xlUp).Offset(1)

---

嗨，不知什么原因，你的代码不起作用。此外，我确实需要它从A9开始作为标题/其中的一些评论的前几行。因此，下一个可用行从单元格A9开始。