excel copy and paste macro

[Hayward]

Hi guys I need to find a way to have a macro button to copy and paste form one cell and paste it into a table on the on second tab. on my first sheet I have column for our Customer Code Sheets("Data_Entry") B3 and one for QTY ("Data_Entry") C3 l like to copy and paste this to a table in a second tab called Sheets("Cust_History"). I have tried to record it with the macro recorder but just it just copied over the last entry. see my macro recording below..

Sub Enter()
'
' Enter Macro
'
' Keyboard Shortcut: Ctrl+q
'
Range("B3").Select
Selection.Copy
Sheets("Cust_History").Select
Range("B19").Select
ActiveSheet.Paste
Sheets("Data_Entry").Select
Range("C3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Cust_History").Select
Range("C19").Select
ActiveSheet.Paste
Sheets("Data_Entry").Select
Range("B3").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C3").Select
Selection.ClearContents
End Sub
I like it to move down to the empty cell below.

 

[MARK858]

For your particular task use

Sub CopyMe()
    With Sheets("Sheet1").Range("B1:C1")
        .Copy
         Sheets("Cust_History").Range("B17").PasteSpecial Paste:=xlPasteAll, Transpose:=True
        .ClearContents
    End With
End Sub

In general to copy to next empty cell

[color=darkblue]Sub[/color] Macro2()
    [color=darkblue]Dim[/color] c [color=darkblue]As[/color] Range
    [color=darkblue]For[/color] [color=darkblue]Each[/color] c [color=darkblue]In[/color] Sheets("Sheet1").Range("B1:C1")
        c.Copy Sheets("Cust_History").Range("B" & Rows.Count).End(xlUp).Offset(1)
        c.Clear
    [color=darkblue]Next[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

Change Sheet1 to the name of your sheet you are copying from

 

[Hayward]

Thanks Mark it works great.