Current Resize query

[Sameer.k21]

Hi,

I am trying to resize my selection using current region by 3 rows above the range selected.

        Dim LastRow, LastCol As Long, rng As Range
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Select
'        LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
        Selection.CurrentRegion.Select
        'Selectino.resize(
      With Selection.CurrentRegion
            .Cells(1, 1).Resize(Selection.Rows.Count + 5, .Columns.Count).Select
      End With
        Selection.Delete shift:=xlToLeft
    End With

Please advise if this is possible.

Regards,
Sameer

 

[Sameer.k21]

@Deepak can you please advise

 

[Nightlytic]

Like this?

With selection.CurrentRegion
.Cells(-2, 1).Resize(selection.Rows.Count + 2, .Columns.Count).Select
End With

So if your macro runs while A4 is selected, A1:A3 are selected

 

[Sameer.k21]

Thank you so much @Nightlytic

 

[Sameer.k21]

it selects A1:A3 and then last row is left out

Like this?

With selection.CurrentRegion
.Cells(-2, 1).Resize(selection.Rows.Count + 2, .Columns.Count).Select
End With

So if your macro runs while A4 is selected, A1:A3 are selected

 

[Sameer.k21]

Never mind, I changed to "selection.Rows.Count + 3" - Thanks again

 

[Nightlytic]

No problem