Help!

[B4L4KS]

Hi

i need to add customer details through a macro and add a new line below that will add new details for a new customer.

the code that i have already is below,

Sub adddetails()
'
' adddetails Macro
'

'
    Range("Q12:R12").Select
    Selection.Copy
    Sheets("Customer Details").Select
    Range("G22:H22").Select
    ActiveSheet.Paste
    Sheets("Home Page").Select
    Range("Q13:R13").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Customer Details").Select
    Range("I22:J22").Select
    ActiveSheet.Paste
    Sheets("Home Page").Select
    Range("Q17:R17").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Customer Details").Select
    Range("M22:N22").Select
    ActiveSheet.Paste
    Sheets("Home Page").Select
    Range("Q18:R18").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Customer Details").Select
    Range("O22:P22").Select
    ActiveSheet.Paste
    Sheets("Home Page").Select
    Range("Q19:R19").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Customer Details").Select
    Range("Q22:R22").Select
    ActiveSheet.Paste
    Sheets("Home Page").Select
    Range("Q20:R20").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Customer Details").Select
    Range("S22:T22").Select
    ActiveSheet.Paste
End Sub

many thanks

kristian

 

[RoryA]

Duplicate post. Please post any responses here.

Kristian,
Please do not simply post the same question repeatedly!