Macro to copy cells with borders and text from one sheet to another

[richardgmurillo]

I am working on a workbook that will contain a form for me to fill out regarding customers. I have completed a blank form and I have used a second worsheet to have a blank copy of the form and on worksheet1 is where the worksheet will go where I will fill out. I have worked on a macro where when I click a "click here" button it will past a blank sheet on the next available row. I searched online and came up with a macro for the cutton to copy the form from the second sheet and past it on the first sheet. The macro works but it does not copy the borders of the cell. Is there any way to code it so that it copies the borders as well so I can have a complete form to fill out everytime I get a new customer, Thanks.

 

[mrshl9898]

Try:

[COLOR=#333333][FONT=Courier][COLOR=#000000]Application.ScreenUpdating= False[/COLOR][/FONT][/COLOR]
[COLOR=#333333][FONT=Courier][COLOR=#000000]Dim copySheet As Worksheet[/COLOR][/FONT][/COLOR]
[COLOR=#333333][FONT=Courier][COLOR=#000000]Dim pasteSheet As Worksheet[/COLOR][/FONT][/COLOR]

[COLOR=#333333][FONT=Courier][COLOR=#000000]Set copySheet =Worksheets("Sheet2")[/COLOR][/FONT][/COLOR]
[COLOR=#333333][FONT=Courier][COLOR=#000000]Set pasteSheet =Worksheets("Sheet1")[/COLOR][/FONT][/COLOR]

[COLOR=#333333][FONT=Courier][COLOR=#000000]copySheet.Range("A1:O16").Copy[/COLOR][/FONT][/COLOR]
[COLOR=#333333][FONT=Courier][COLOR=#000000]pasteSheet.Cells(Rows.Count,1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
[/COLOR][/FONT][/COLOR][COLOR=#000000][FONT=Courier]pasteSheet.Cells(Rows.Count,1).End(xlUp).Offset(1, 0).PasteSpecial [/FONT][/COLOR][COLOR=#333333]xlFormats[/COLOR][COLOR=#000000][FONT=Courier]
[/FONT][/COLOR][COLOR=#333333][FONT=Courier][COLOR=#000000]Application.CutCopyMode = False
[/COLOR][/FONT][/COLOR]