Thank you very much for your help and quick responsed. It work base on the
month change .
--
thanks

Liem Pho


"Don Guillett" wrote:

Option Explicit

Sub CopyColHtoEstimatesSAS()
Dim ms As String
Dim dc As Long

'line below ONLY needed if firing from another sheet
'Sheets("Merchandise Store Plan").Select

ms = Format(Range("sourcemonth"), "mmm")
'MsgBox ms
With Sheets("Estimates")
'finds appropriate column
dc = .Rows(5).Find(What:=ms, LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Column
'MsgBox dc
Range("h13:h70").Copy
Sheets("Estimates").Cells(6, dc).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With

Application.CutCopyMode = False
MsgBox "You just copied " & ms & " to " & ms & " of the Estimates Page"
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"liem" wrote in message
...
How can I copy a column B10:B70 a spread sheet have 60 rows of calculation
and I want to I click save button it will copy and paste just a value to
separate tab name Estimate for each month . It need to check on cell B6 if
it
a month 1 or 2 or 3....to 12 so it will copy and paste data to a correct
column for each month.

thanks
Liem Pho

.