copy range of cells

[austin350s10]

I am currently using the following code to Copy a sheet so that it ends up directly after the 1st sheet in the workbook.

Sheets("Needs Assessment").Copy after:=Sheets(1)
ActiveSheet.Name = "Initial Assessment - " & Format(Range("L81"), "mm-dd-yyyy")

How can I modify the above code to only copy a Range of cells from "Needs Assessment" including check boxes to a new sheet and keep the same sheet name format?

 

[austin350s10]

anyone ideas??

 

[John Davis]

anyone ideas??

Does this help any??

Sheets.Add.Name = "Initial Assessment - " & Format(Sheets("Needs Assessment").Range("L81"), "mm-dd-yyyy")
ActiveSheet.Move After:=Sheets(1)
Sheets("Needs Assessment").Range("A1:A5").Copy Sheets("Initial Assessment - " & Format(Sheets("Needs Assessment").Range("L81"), "mm-dd-yyyy")).Range("A1:a5")