Copy cell range to anther sheet containing;..

[SamT]

Just for Menor:
[VBA]Sub test()
Dim X
X = NewShtNameByLastDay
End Sub

Function NewShtNameByLastDay() As String
NewShtNameByLastDay = Format(DateSerial(Year(Date), _
Month(Date) + 1, 0), "mmm dd, yyyy")
End Function
[/VBA]