Macro copy paste issues

[exceldrivesmenutts]

Hey,

I have been trying for a few days to get this to work and you will be able to tell by my code that I am a complete beginer.

I am trying to copy values from specific cells in another workbook and paste this values into a table.

The other workbook is a form

I can get it to paste but I need it to move to the next row if I run the macro again at the moment it just pastes over the top of the data.

I am trying to create a running record.

Heres my dodgy basic code.

Any help would be great

Sub DATaGATHER()
'
' DATaGATHER Macro
' Macro recorded 27/05/2010 by P675120
'

'
    
    Range("F6").Select
    Selection.Copy
    Windows("reporting.xls").Activate
    Range("B4").Select
    Selection.PasteSpecial paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C4").Select
    Windows("Memo Generation Templatetester.xls").Activate
    Range("F28").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("reporting.xls").Activate
    Selection.PasteSpecial paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("Memo Generation Templatetester.xls").Activate
    ActiveWindow.SmallScroll Down:=18
    Windows("reporting.xls").Activate
    Windows("Memo Generation Templatetester.xls").Activate
    Range("F45").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("reporting.xls").Activate
    Range("D4").Select
    Selection.PasteSpecial paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("Memo Generation Templatetester.xls").Activate
    Range("H45").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("reporting.xls").Activate
    Range("E4").Select
    Selection.PasteSpecial paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("Memo Generation Templatetester.xls").Activate
    Range("F50").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("reporting.xls").Activate
    Range("F4").Select
    Selection.PasteSpecial paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("Memo Generation Templatetester.xls").Activate
    Range("F30").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("reporting.xls").Activate
    Range("G4").Select
    Selection.PasteSpecial paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False


End Sub