add new row macro?

[lpking2005]

hi,

Can anyone help me, I want a button on a sheet which once clicked, will
add a row at the bottom each time,
but I need newly created cells to retain the same size and conditional formatting,
Note that the the two columns which are coloured are all separate combo boxes.


This is what i need to copy to the bottom each time....

 

[B4L4KS]

hi

i had the same problem once

below the end of the visual basic code enter the word Next and that should do the trick, but enter it before end sub eg below.

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

    
 End Sub

kristian

any help providable by my limitations

oh year no data provided by you for cells and rows