Resize selection and copy it to another workbook

[Bneder]

Hi, i use excel macros about half a year and 99% of them I created myself, but now I'm stuck. ( I have about 30 macros )

Problem :

I need to copy only some rows from my chart to another workbook.
I hold CTRL and select for example B2 B6 and B10 then i need to resize selection by 8 columns to right side and copy this to another workbook and paste as values.

I have one working macro, but it causes excel to blink :

For Each c In Selection        
c.Resize(, 8).Copy


NextFree = Workbooks("Odstránenka závad.xlsm").Sheets("Vstup").Range("M14:M" & Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).Row
        Workbooks("Odstránenka závad.xlsm").Sheets("Vstup").Range("M" & NextFree).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 Next c


 Application.CutCopyMode = False


 Workbooks("Odstránenka závad.xlsm").Activate
 Range("M" & NextFree).Offset(1).Select

I tried to use Application.Visible = False, but when i set it back to True I got a new empty Excel window. I use Excel 2016 in work.


I tried also send values without clipboard, this was fast and without blinking, but resize do not work so it only copied the values from the "B" column.

NextFree = Workbooks("Odstránenka závad.xlsm").Sheets("Vstup").Range("M14:M" & Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).Row
For Each c In Selection
    c = c.Resize(, 8)
    Workbooks("Odstránenka závad.xlsm").Worksheets("Vstup").Range("M" & NextFree).Value = c
    NextFree = Workbooks("Odstránenka závad.xlsm").Sheets("Vstup").Range("M14:M" & Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).Row
Next c

Can someone pls help me edit second macro ?

 

[Fluff]

Hi & welcome to MrExcel.
How about

For Each c In Selection
    Workbooks("Odstránenka závad.xlsm").Worksheets("Vstup").Range("M" & NextFree).Resize(, 8).Value = c.Resize(, 8).Value
    NextFree = Workbooks("Odstránenka závad.xlsm").Sheets("Vstup").Range("M14:M" & Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).Row
Next c

 

[Bneder]

Wow thanks for such a quick answer Fluff, it works great

 

[Fluff]

Glad to help & thanks for the feedback