Macro to select columns A to L from the selected A Column cells

[caligirl626]

Hello everyone. Looking for a macro that will copy row information from column A through L.

This code below copies a single row, in this case Row 2, cells A2:K2, as shown above.

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveCell.Range("A1:K1").Select
    Selection.Copy
End Sub

How can the code be modified to copy all the columns, A thru K, of user selected A column cells?
For the example shown below, if cells A4 to A7 are selected, the macro should copy array A4:K7

The macro should consider that the number of the user selected column A cells will vary. TIA

 

[Michael M]

Maybe this way

Sub MM1()
Dim sr As Range, firstRow As Long, lastRow As Long
Set sr = Selection
fr = sr.Cells(1, 1).Row
lr = sr.Cells(sr.Rows.Count, 1).Row
Range(Cells(fr, 1), Cells(lr, 11)).Copy
End Sub

 

[Fluff]

Another option if you only select contiguous cells in col A

Sub caligirl()
   Selection.Resize(, 11).Copy
End Sub

 

[caligirl626]

Maybe this way

Sub MM1()
Dim sr As Range, firstRow As Long, lastRow As Long
Set sr = Selection
fr = sr.Cells(1, 1).Row
lr = sr.Cells(sr.Rows.Count, 1).Row
Range(Cells(fr, 1), Cells(lr, 11)).Copy
End Sub

Michael, thank you! Tested this out and works great. Good job!

 

[caligirl626]

Another option if you only select contiguous cells in col A

Sub caligirl()
   Selection.Resize(, 11).Copy
End Sub

 

[caligirl626]

Another option if you only select contiguous cells in col A

Sub caligirl()
   Selection.Resize(, 11).Copy
End Sub

Love the simple solution, but now that you brought it up, what if the selections are NOT contiguous? I have some cases were I'd like to skip a line or two. How could the macro be modified?

 

[Fluff]

How about

Sub caligirl()
   Intersect(Selection.EntireRow, Range("A:K")).Copy
End Sub

 

[caligirl626]

How about

Sub caligirl()
   Intersect(Selection.EntireRow, Range("A:K")).Copy
End Sub

I like it! The intersect picks up the non-contiguous rows nicely. However, let's say I insert a column or two at the beginning, say A and B. Let's say 2 columns are added. So now the range to copy is C:M. Can you modify the code to adjust for that? TIA

 

[Fluff]

Just change the range from A:K to C:M

 

[caligirl626]

Just change the range from A:K to C:M

What I meant to say is, the amount of leading columns will vary, so the starting column will change and may not necessarily be C:M. I want to macro to select the 11 slides to the right of the selected contiguous and / or non-contiguous cells in the starting column, whatever that may be, if that makes sense. Anyone's help is appreciated.