copy-paste-selected-cell-range-another-sheet

Hi,
In sheet1 I have cell range as indicated below which will need to be copied and pasted to sheet2 at different range given below.
It does not work at all. Every time I click , it only copies last cell in range and pastes it everywhere.
I have some formule in them. I want only the VALUE to be copied and pasted .

Any help is appreciated please.
I am using form control button and assigning this macro to it.
Regards

Sub test()
Dim cl As Range
 'Turn off screen flashing for speed
Application.ScreenUpdating = False
 
For Each cl In Worksheets("sheet1").Range("A2:I45","L2:L45","M2:M45")
If cl.Value <> False Then
cl.Copy
Worksheets("sheet2").Range("C14:J57","L14:L57","M14:M57").PasteSpecial Paste:=xlValue
End If
Next cl
 
 'Resume screen updates
Application.ScreenUpdating = True
End Sub

This has been cross referred to http://www.mrexcel.com/forum/excel-questions/698929-copy-paste-selected-cell-range-another-sheet.html

Sorry Correction
I want to just copy the data ( value only) from Sheet1 A2:I45 , L2:L45 & M2:M45 ( skipping the column J & K)
And paste it to sheet2 in C14:K56 , L14:L56 & M14:M56.

In short I want the following:
Copy from sheet1 Paste to sheet2
A2:I45 C14:K56

L2:L45 L14:L56

M2:M45 M14:M56

Hi,
I have sheet1.
In this I have columns A to N ( Rows A2 to N45) having data in it such as text, date, formula, numbers etc.

I want to just copy the data ( value only) from Sheet1 A2:I45 , L2:L45 & M2:M45 ( skipping the column J & K)
And paste it to sheet2 in C14:J56 , L14:L56 & M14:M56.

In short I want the following:
Copy from sheet1 Paste to sheet2
A2:I45 C14:J56

L2:L45 L14:L56

M2:M45 M14:M56

I tried everything. It does not work. If I copy and paste manually it takes few min, but this book is used by many and I want to avoid errors by others in doing so.
Sorry bit confused. Please help
Regards

Actually, I have clicked on each of the cell in column L of sheet 2 and it actually has copied the formula instead of a result a word ' Overdue'
e.g. in L14 in sheet2 is has a formula

=IF(A14="","",IF(I14<AS14,"Overdue",""))

It means we now need coding to resolve Range Vs Value in column L on both sheets. I think so. I may be wrong pal.

Hi Mate,

It works great. But the value in column L in sheet1 ( which populates word ' Overdue' by a formula

=IF(A6="","",IF(I6<AS6,"Overdue",""))

) does not get copied ( value only such as word 'Overdue') to sheet2. Sheet 2 remains blank

Hi ,
This time it has taken only ROW 2 from sheet1 ( specific cells only A2 , L2 & M2)
and has copied it to sheet2 ROW 14 ( C14 , L14 , M14)
Something has gone wrong.

The previous coding was better. It did every thing except copying column L from sheet1 to sheet2
regards

Hi,
It worked like a magic.
Well done
Thanks my Guru
Regards

Hi,
Whenever some one helps me, I feel grateful but I feel restricted as I am unable to reciprocate - I am still learning
Till the time I find out how, when and where do I reciprocate, please accept my heart-filled 'Thanks'
See you soon mate.

Hi,
Whenever some one helps me, I feel grateful but I feel restricted as I am unable to reciprocate - I am still learning
Till the time I find out how, when and where do I reciprocate, please accept my heart-filled 'Thanks'
See you soon mate.

Hi,
Just one more question may I ask.
I know this is closed as solved.
If I want to include other sheets , what will I write??
Current Code

Sub test()
 
 'Turn off screen flashing for speed
Application.ScreenUpdating = False
 
With Worksheets("sheet1")
    Sheets("sheet2").Range("C14:K56").Value = .Range("A2:I45").Value
    Sheets("sheet2").Range("L14:L56").Value = .Range("L2:L45").Value
    Sheets("sheet2").Range("M14:M56").Value = .Range("M2:M45").Value
End With

 'Resume screen updates
Application.ScreenUpdating = True

End Sub

I also want to include copying From

sheet3 to sheet2 ( From sheet3 A2:E6  to sheet2 J58:M62)

I tried to write and I am not going anywhere.
Any help please
Regards

Hi,
Are you able to help please?

Hi,
Works great.
Thanks again a millions.
Regards