Adding visual basic to a macro

[B4L4KS]

hello

i need to create a macro that adds a new customer and their details to a customer database, first name, last name, address ect.

this will cut data from my first page and insert it into another, this will also have to include a function of adding a new line below for then next new customers details.

this is the code i have already 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

i am not very good at macros as you can see but i really need help

thanks in advance

Kristian

 

[SteveO59L]

I assume that the referenced cells in your sheet "Home Page" will be constant, and the cells in sheet "Customer Details", will need to increment by one as you add a new customer.

 

[GlennUK]

This is one way:

Sub adddetails()
'
' adddetails Macro
'

sourcerows = Array(12, 13, 17, 18, 19, 20)
targetareas = Array("G", "I", "M", "O", "Q", "S")
targetrow = Sheets("Customer Details").Range("G" & Rows.Count).End(xlUp).Offset(1).Row
Sheets("Home Page").Select
For i = LBound(sourcerows) To UBound(sourcerows)
    Range("Q" & sourcerows(i)).Resize(1, 2).Copy _
        Destination:=Sheets("Customer Details").Range(targetareas(i) & targetrow)
Next
Application.CutCopyMode = False
End Sub