Snasui Excel Forum

Code: Select all

Set rt = .Range("G10").End(xlUp).Offset(1, 0)

Code: Select all

Set rt = .Range("G10")

Code: Select all

Sub Edit()
        Dim formBook As Workbook
        Dim i As Integer
        Dim rs As Range
        Dim rt As Range
        Set formBook = ThisWorkbook
        
            With formBook.Sheets("Sheet3")
                i = .Range("x9").Value
                Set rs = .Range("R10:W10").Resize(i)
                Set rt = .Range("G10").End(xlUp).Offset(1, 0)
                rs.Copy: rt.PasteSpecial Paste:=xlPasteFormulas
            End With
End Sub

Code: Select all

With formBook.Sheets("Sheet3")
    i = .Range("x9").Value
    Set rs = .Range("R10:W10").Resize(i)
    Set rt = .Range("G" & .Rows.Count).End(xlUp).Offset(1, 0)
    rs.Copy: rt.PasteSpecial Paste:=xlPasteFormulas
End With

Code: Select all

Sub Edit()
        Dim formBook As Workbook
        Dim i As Integer
        Dim rs As Range
        Dim rt As Range
        Set formBook = ThisWorkbook
        
             i = formBook.Worksheets("Sheet3").Range("x9").Value
       With formBook.Worksheets("Sheet3")
            Set rs = Range("R10:W25")
       End With
            Set rt = formBook.Sheets("Sheet3").Range("G10").End(xlUp).Offset(1, 0)
            rs.Copy: rt.PasteSpecial Paste:=xlPasteFormulas
End Sub

Code: Select all

Sub Edit()
        Dim formBook As Workbook
        Dim i As Integer
        Dim rs As Range
        Dim rt As Range
        Set formBook = ThisWorkbook
        
             i = formBook.Worksheets("Sheet3").Range("x9").Value
       With formBook.Worksheets("Sheet3")
            Set rs = .Range(.Range("R10"), .Range("W25" & i + 1))
       End With
            Set rt = formBook.Sheets("Sheet3").Range("G10").End(xlUp).Offset(1, 0)
            rs.Copy: rt.PasteSpecial Paste:=xlPasteFormulas
End Sub