Range.FillRight (Excel)

Fills right from the leftmost cell or cells in the specified range. The contents and formatting of the cell or cells in the leftmost column of a range are copied into the rest of the columns in the range.

Worksheets("Sheet1").Range("A1:M1").FillRight