Excel Forum

Code: Select all

Sub test()

Dim a As Range
Set a = Range("A1").End(xlDown).Offset(Range("c1").Value, 0).Select

    Range("a1:a" & Range("c1").Value).Select
End Sub

Code: Select all

 Range("a1:a"..

Code: Select all

Sub test()

    Dim a As Range
    Set a = Range("A1").Resize(Range("c1").Value)
    a.Select
End Sub

Code: Select all

Sub test()

If Range("a1").Value = "" Then
    Range("d1:e1").Select
    Selection.Copy
   Dim a As Range
    Set a = Range("A1").Resize(Range("c1").Value)
    a.Select
      Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
        
ElseIf Range("a1").Value > "0" Then
    Range("d1:e1").Select
    Selection.Copy
      Range("a1").Select
   Dim b As Range
    Set b = Selection.End(xlDown).Resize(Range("c1").Value)
    b.Select
      Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False

End If
    'Selection.End(xlDown).Select
    'Range("A3").Select
End Sub