Hello,

I'm trying to create a macro which will copy values from cells E6:I6 to E27:I27 and then paste special to first empty cell in A column (sheet "mystats").

I will add one sheet to my workbook daily.

I tried to do it myself but I'm total newbie in VBA and so far I've got this:


Sub Makro3()


Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
If Not ws.Name Like "Macro" And Not ws.Name Like "Wzór" And Not ws.Name Like "Bacground" And Not ws.Name Like "mystats" Then
Range("E6").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("mystats").Select
Range("a10000").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False



End If

Next


End Sub
I will appreciate any help .

Regards.