Excel Forum

Code: Select all

Sub test()

Dim mon As Integer
Dim i As Integer
    i = 1
    
mon = Range("f2")


  Sheets("sheet2").Range("a5:f5").Copy
  
  Sheets("sheet1").Select
  
For i = i To mon

    If i = mon Then

    ActiveCell.Offset(f2, 3).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
  ActiveCell.Offset(1, 0).Activate


        End If
Next i

End Sub

Code: Select all

    ActiveCell.Offset(f2, 3).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Code: Select all

    Cells(i + 6, 9).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False