Sub Macro1()
'
' Macro1 Macro
'
'
If Range("I7") = "" Then
Range("G7").End(xlToRight).Select
Else: Range("H7").End(xlToRight).Select
End If
col = Selection.Column
Range(Cells(7, col), Cells(16, col)).Select
Selection.AutoFill Destination:=Range("H7:I16"), Type:=xlFillDefault
newzone = Range(Cells(7, col), Cells(16, col + 1)).Address(False, False)
Selection.AutoFill Destination:=Range(newzone), Type:=xlFillDefault
Range("H7:I16").Select
Range(Cells(7, col), Cells(16, col)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub