こういうことでしょうか?
Sub Sample() Dim r As Range For Each r In Worksheets("Sheet1").Range("A1:C1") r.Offset(1, 0).Resize(3,1).Interior.Color = r.Interior.Color Next End Sub