Can I fill non-adjacent cells with the fill feature? (example listed)

Sub AddDates()
Srow = 1
BeginDate = DateSerial(2008, 11, 7)
EndDate = DateSerial(2009, 11, 6)
NewDate = BeginDate
Do Until NewDate > EndDate
    Cells(Srow, "A").Value = NewDate
    NewDate = NewDate + 7
    Srow = Srow + 10
Loop
End Sub

Sub Will_you_date_me()

Dim Counter As Long, Number_of_Entries As Long
Dim ThisCell As Range


    If Selection.Cells.Count = 1 Then
    
        If MsgBox("Do you want to start the dates in cell " & ActiveCell.Address & "?", vbQuestion + vbYesNo, "START IN CELL " & ActiveCell.Address) = vbNo Then
        
            Exit Sub
            
        End If
    
        Set ThisCell = ActiveCell
        
        ThisCell.Value = InputBox("Please enter the first date", "ENTER DATE", "7/23/1975")
        
        Number_of_Entries = Application.InputBox("How many dates would you like?", "ENTER NUMBER OF DATES", "100", , , , , 1)
        
        For Counter = 1 To Number_of_Entries
        
            ThisCell.Offset(10 * Counter).Value = ThisCell.Offset(10 * (Counter - 1)).Value + 7
            
        Next Counter
        
    End If
    

End Sub

Sub AddDates()
Srow = 1
BeginDate = DateSerial(2008, 11, 7)
EndDate = DateSerial(2009, 11, 6)
NewDate = BeginDate
Do Until NewDate > EndDate
    Cells(Srow, "A").Value = NewDate
    For i = 1 to 6
        Cells(Srow, "A").Offset(0,i).Value = NewDate + i
    Next i
    NewDate = NewDate + 7
    Srow = Srow + 10
Loop
End Sub