thanks ....

it works but it put a number "1" below cell in column b of tab A ..how do i
get all data from tab B into A?

"Don Guillett" wrote:

IF?? you are in TabB at the time and you have data as described then this
will work. I have modified to suit your post.

Sub copyvaluetoothersheet()
With Sheets("Tab A")
lr = .Cells(Rows.Count, "b").End(xlUp).Row + 1
.Cells(lr, "b").Value = _
Range("c2").End(xlDown).End(xlToRight).Value
End With
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Mayte" wrote in message
...
I tried it but it's not pasting the data from tab b2 into tab a

"Mayte" wrote:

I want to add some data from tab B to tab A. I was to past the values on
tab
B below the last row on tab A. the problem is that when i do my macro I
can't figure out how to select the last emply cell in colum b. the way i
have
it now, it's pasting values as of B7 and I want it below b7 or whatever
is
the last empty cell in column b ...make sense? any ideas?

Sub ADD_to_Month()
'
' ADD_to_Month Macro
' Macro recorded 6/2/2008 by Mayte
'

'
Range("C2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Tab A").Select
Selection.End(xlDown).Select
Range("B7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
End Sub