Дата поиска затем вставьте в пустые ячейки

Question

Я пытаюсь исправить свой код, чтобы предотвратить перезапись ячеек копирования, в которых есть значения.Прямо сейчас я создал пользовательскую форму, которая позволяет моему боссу легче использовать классы присваивания.Может ли кто-нибудь помочь мне изменить этот код, чтобы он вставлялся только в пустые ячейки?

Приведенный ниже код считывает дату и выбирает ее в качестве активной ячейки.Я хочу, чтобы он затем сместился в столбец C и вставил информацию из моего рабочего листа в активный рабочий лист.Каждый раз, когда вы, ребята, можете сэкономить, буду очень признателен.

Private Sub ContinueMG_Click()
    Dim rfoundCell As Range, SrchRng As Range
    On Error Resume Next
    MGSch.Hide

    Set rfoundCell = ActiveSheet.Range("A7:A750").Find(What:=DateValue(MGDate.Value), LookIn:=xlValues)
    If Not rfoundCell Is Nothing Then
        rfoundCell.Select
    Else
        MsgBox "Date was not found. Please try again."
        Exit Sub
    End If

    Select Case MGCourse.Value
        Case "Course 1"
            Select Case MGCourseSlect.Value
                Case "Course1"
                    Range(ActiveCell.Offset(0, 2), ActiveCell.Offset(0, 3)) = Worksheets("Courses").Range("V2:W2").Value
                    ActiveCell.Offset(0, 4) = MGRoom.Value
                    Range(ActiveCell.Offset(0, 14), ActiveCell.Offset(0, 15)) = Worksheets("Courses").Range("X2:Y2").Value

                Case "Course2"
                    Range(ActiveCell.Offset(0, 6), ActiveCell.Offset(0, 7)) = Worksheets("Courses").Range("V2:W2").Value
                    ActiveCell.Offset(0, 8) = MGRoom.Value
                    Range(ActiveCell.Offset(0, 16), ActiveCell.Offset(0, 17)) = Worksheets("Courses").Range("X2:Y2").Value
            End Select
        Case ""
            MsgBox "No course was selected. Please try again."

    End Select
    Application.CutCopyMode = False
    Unload Me

End Sub