Excel VBA跳转到下一个空白行

Question

我正在尝试构建员工假期跟踪器，以便将数据从一个摘要表自动填充到Excel中构建的日历。

我有几个问题。

Firsy，当填充到日历时，我希望代码在周末跳过。

其次，如果多名员工在同一天休假。我希望能够在日期下找到下一个空白行。

日历如下所示：

还有其他日期低于该日期，所以我没有使用rows.count来查找最后一个空行。

以下代码是和if语句的一部分，用于填充多天。

我的代码的其他部分可以在这篇文章中找到。

根据开始日期和结束日期的差异自动将多个条目填充到日历

我试图解决上面列出的两个问题。

我是编程的初学者。有太多的图层，我想知道我的代码有什么问题。

非常感谢你的帮助！

For i = 1 To TotalDaysOff

    If Weekday(startDate + (i - 2), vbMonday) < 6 Then

        With Sheets(sSheet)
            Set R = .Range("A1:H58").Find(startDate + (i - 2))
            If Not R Is Nothing Then

                If IsEmpty(R.row + 1) Then
                    Sheets(sSheet).Cells(R.row + 1, R.Column).Value = Employee & " " & Reason & " " & Time

                Else
                    Sheets(sSheet).Cells(R.row + 2, R.Column).Value = Employee & " " & Reason & " " & Time

                End If


             End If

        End With

     Else
     End If

 Next i

End If