Copy user entered Range from one sheet to another
 

Hi,

I have a sheet with about 48 rows and columns with data from Row A to
Row CD. When The macro runs I want to create a new sheet and copy the
first 5 rows to the new sheet and give the user a way to choose the
other row to copy to the new sheet.

I am able to create the new sheet and to let the user select the rows
to copy, buth the new sheet is blank. Could Somebody please help.

Thx
dpatwary

Copy user entered Range from one sheet to another
 

Here is the code I have written.

Sub SpreadWorkAssgmnt()
Dim RowToBeCopied As Range 'This line of code is optional

Dim wSht As Worksheet
Dim ResultWSht As Worksheet

Dim shtName As String
Dim Last As Long

Set Rng = Application.InputBox(prompt:="Select Column to Work on",
Type:=8)

Rng.Select

shtName = Format(Now, "mmmm_yyyy")
For Each wSht In Worksheets
If wSht.Name = shtName Then
MsgBox "Sheet already exists...Make necessary " & _
"corrections and try again."
Exit Sub
End If
Next wSht

Set ResultWSht = ThisWorkbook.Worksheets.Add
ResultWSht.Name = shtName
Set wSht = ActiveSheet
wSht.Range("A1").Copy
ResultWSht.Range ("A1:CD5")
MsgBox "I am at the END"
End Sub

Thanks

wrote:
Hi,

I have a sheet with about 48 rows and columns with data from Row A to
Row CD. When The macro runs I want to create a new sheet and copy the
first 5 rows to the new sheet and give the user a way to choose the
other row to copy to the new sheet.

I am able to create the new sheet and to let the user select the rows
to copy, buth the new sheet is blank. Could Somebody please help.

Thx
dpatwary