Snasui Excel Forum

Code: Select all

Sub Macro1()
    Range("B8:AV8").Select
    Selection.Copy
    Range("B17").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

Code: Select all

Range("B8:AV8").Select

Code: Select all

Sub Macro1()
    Dim lastRow As Long
    lastRow = Range("B" & Rows.Count).End(xlUp).Row
    Range("B" & lastRow & ":AV" & lastRow).Select
    Selection.Copy
    Range("B17").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

Code: Select all

 Range("B" & lastRow & ":AV" & lastRow).Select 

Code: Select all

 Range("B" & lastRow & ":AZ" & lastRow).Select 

Code: Select all

Sub Macro1()
    Dim lastColumn As Integer
    Dim lastRow As Long
    lastColumn = Range("B6").End(xlToRight).Column
    lastRow = Range("B6").End(xlDown).Row
    If Range("B7") = "" Then lastRow = 7
    Range(Cells(lastRow, 2), Cells(lastRow, lastColumn)).Select
    '...Other code
End Sub