Hi, i have the following code:

Sub Macro4()
'
' Macro4 Macro
' Macro recorded 2008-05-13 by Test
'

    Selection.Copy
    Sheets("Blad3").Select
    Range("A8").Select
    ActiveSheet.Paste
    Sheets("Blad2").Select
    Range("G10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Blad3").Select
    Range("A8").Select
    ActiveSheet.Paste
    Sheets("Blad2").Select
    Range("G11").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Blad3").Select
    Range("B8").Select
    ActiveSheet.Paste
    Sheets("Blad2").Select
    Range("G12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Blad3").Select
    Range("C8").Select
    ActiveSheet.Paste
    Sheets("Blad2").Select
    Range("G13").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Blad3").Select
    Range("D8").Select
    ActiveSheet.Paste
    Sheets("Blad2").Select
    Range("G14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Blad3").Select
    Range("E8").Select
    ActiveSheet.Paste
    Sheets("Blad2").Select
    Range("G15").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Blad3").Select
    Range("F8").Select
    ActiveSheet.Paste
    Sheets("Blad2").Select
    Range("G16").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Blad3").Select
    Range("G8").Select
    ActiveSheet.Paste
    Range("H8").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=Blad2!R[10]C[-1]"
    Selection.Font.Bold = False
    Range("I8").Select
    ActiveCell.FormulaR1C1 = "=Blad2!R[12]C[-2]"
    Selection.Font.Bold = False
    Range("J8").Select
    ActiveCell.FormulaR1C1 = "=Blad2!R[14]C[-3]"
    Selection.Font.Bold = False
    Range("K8").Select
    ActiveCell.FormulaR1C1 = "=Blad2!R[16]C[-4]"
    Selection.Font.Bold = False
    Range("L8").Select
    ActiveCell.FormulaR1C1 = "=Blad2!R[18]C[-5]"
    Selection.Font.Bold = False
    Range("M8").Select
    ActiveCell.FormulaR1C1 = "=Blad2!R[20]C[-6]"
    Selection.Font.Bold = False
    Range("N8").Select
    ActiveCell.FormulaR1C1 = "=Blad2!R[22]C[-7]"
    Selection.Font.Bold = False
    Range("O8").Select
    ActiveCell.FormulaR1C1 = "=Blad2!R[24]C[-8]"
    Selection.Font.Bold = False
    Range("P8").Select
    ActiveCell.FormulaR1C1 = "=Blad2!R[26]C[-9]"
    Selection.Font.Bold = False
    Range("Q8").Select
    ActiveCell.FormulaR1C1 = "=Blad2!R[28]C[-10]"
    Selection.Font.Bold = False
    Range("R8").Select
    ActiveCell.FormulaR1C1 = "=Blad2!R[30]C[-9]"
    Selection.Font.Bold = False
    Range("S8").Select
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Rows("8:8").Select
    Selection.Insert Shift:=xlDown
    Sheets("Blad4").Select
End Sub
This code moves some information from sheet2 to sheet3. And then makes a break, so other members also can create their own member.

But my problem is, when one member registrates. The other gets HIS information in their fields. How do i avoid this?

I think this is because of the formula i'm using on sheet2, that i later on move
that formula to sheet3. Because then it's the same and everyone gets that info.

This is one of the formula that is moved: =Sheet2!G18

So how do i avoid this, and is there a smart method to avoid that other members ar affected by anothers information and that they do not have to get his/her info in their fields.