Irregular Range shapes

[MuchToLearn]

I know this is very simple problem for the people who provide helps here. I got a bit lost when I was practicing some VBA coding.
If say I want to fill cells A1:G1 & A2:E2 with values. At first, I put

Sub FillRange1()
Dim RngCellUnit, RngRangToFill As Range
Set RngRangeToFill = Range("A1:G2")
For Each RngCellUnit In RngRangeToFill
  RngCellUnit.Value = 1
Next RngCellUnit
Range("F2:G2") = ""
End Sub

Then I though it’s kind of double handling with filling in values, then remove some of them, so I tried.

Sub FillRange2()
Dim RngCellUnit, RngRangeToFill As Range
Set RngRangToFill = Range("A1:G1", "A2:E2")
For Each RngCellUnit In RngRangToFill
  RngCellUnit.Value = 1
Next RngCellUnit
End Sub

But not really work as I expected, the whole of range A1:G2 got filled. I don’t understand enough about the Excel VBA now to know why. So, this my first question.
Declare a separate range for A2:E2 adds to code too. Is there a simpler solution? That’s my second question.

 

[mikerickson]

You are using the two argument version of Range and it is returning the range A21:G1 and A2:E2 and all the cells inbetween.
Try the one argument version

Set RngRangToFill = Range("A1:G1, A2:E2")

 

[davesexcel]

Both ranges can be in the same quotes.

Sub FillRange2()
    Dim RngCellUnit, RngRangeToFill As Range
    Set RngRangToFill = Range("A1:G1,A2:E2")
    For Each RngCellUnit In RngRangToFill.Cells
        RngCellUnit.Value = 1
    Next RngCellUnit
End Sub

 

[MuchToLearn]

Wow, thanks guys. So, its simple matter placing “ ”s in this case. Haven’t had much luck finding a site link that explains & distinguishes the usage when I searched on the internet.