Marco for Dummies

[NealGowdy11]

Good morning,

I am just new to macros and am struggling with one om trying to do. I have not learnt how to write macros yet so using the "record Macro" function but cant get it to do what i want.

Il screen shot what ive got so far at the end of this post.

I am trying to click a button to copy data from the below:

Into the table below on the next available row so as to not overwrite the previous month:

Is this possible? Any help would be appreciated, but please keep in mind my limited understanding.

Thank you

N

 

[Special-K99]

Record Macro doesn't usually generate the most efficient code
Try this (untested so take a copy of your spreadsheet)
This copies data from Sheet1 to Sheet1, note it won't copy formats.
Change the name of "Sheet1" in the code to whatever your sheet is called.

Sub k1
Lastrow = Worksheets("Sheet1").Cells(Rows.Count, "W").End(xlUp).Row
LastRow=LastRow+1
for i=0 to 3
Worksheets("Sheet1").Cells(LastRow, 23+i)=Worksheets("Sheet1").Cells(5+i, 12)
Next i
for i=0 to 4
Worksheets("Sheet1").Cells(LastRow, 27+i)=Worksheets("Sheet1").Cells(5+i, 15)
Next i
End Sub

 

[GWteB]

My submission would be ...

Public Sub NealGowdy11()

    Dim src As Range, dest As Range

    With Application.ActiveSheet

        Set src = .Range("L5:L8")
        Set dest = .Range("W16").End(xlDown).Offset(1, 0)
        src.Copy
        dest.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

        Set src = .Range("O5:O9")
        Set dest = dest.End(xlToRight).Offset(0, 1)
        src.Copy
        dest.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
        
        Application.CutCopyMode = False
        
    End With
End Sub

 

[NealGowdy11]

Thank you both for your help, I appreciate it.

N