copying from one worksheet to another within the same workbook

[Piyush]

Hi excel gurus,

How do i create a macro to copy the data from sheet1 to sheet3 and sheet2 to the ending of sheet 3 that already has the values of sheet 2??

i was trying to first copy sheet 1 to sheet 3...its not working...here is how i started it

Public Sub Combiningsheets()


Dim ptipart As Range
Dim i As Integer
Dim x As Double
Dim colBptipn As String
Dim currentvalue As Range
Dim newvalue As String
Dim rowcopy As Range

Worksheets("Sheet3").Cells.Clear

Set ptipart = Worksheets("Sheet1").Range("B:B")
ptipart.EntireColumn.Select

Set currentvalue = ActiveCell
MsgBox currentvalue

Do While currentvalue.Value <> ""

currentvalue.Select
Selection.EntireRow.Select
Worksheets("Sheet2").Paste


Set currentvalue = currentvalue.Offset(1, 0)
MsgBox currentvalue
Loop



'x = ptipart.Rows.Count
'For i = 1 To x
'Next i

End Sub



problem is ....it pastes nothign at all. I made arbitrary values...any advise is greatly appreciated...

[anilsolipuram]

ptipart.EntireColumn.Select

should be

ptipart.Select

and also your code doesnot have selection.copy