Simple code changing required VBA macro excel to copy paste cells

[Jyotirmaya]

Sub Button3_Click()
Range("B19", "B22").Copy
Sheet4.Range("B" & Rows.Count).End(3)(2).PasteSpecial xlPasteValues
Sheet4.Select
Application.CutCopyMode = False
End Sub


I need only to copy the value of B19 and B22 on "Sheet4" B & C Cells respectively but when I use the above formula, it copies entire rows from B19 to B22 and pastes vertically in B2,B3,B4,B5.

I want the code to copy only value of B19 & B22 and value will be posted in B & C columns automatically to the next row and so on.

 

[JoeMo]

You can't copy non-contiguous cells. Copy/Paste the two cells one at a time.

BTW:
Range("B19","B22") is the range B19:B22
Range("B19,B22") is the two cells, B19 and B22

 

[Jyotirmaya]

Thanks Joe thats working but the text is copied in B2 & B3 I want the copied cell in B2 C2 then B3 C3 so on.

 

[JoeMo]

Thanks Joe thats working but the text is copied in B2 & B3 I want the copied cell in B2 C2 then B3 C3 so on.

Then change your code to put the copied cell into the correct cell.

 

[Jyotirmaya]

I dont have much knowledge about coding, kindly let me know what to change in the code

Sub Button3_Click()
Range("B19,B22").Copy
Sheet4.Range("B" & Rows.Count).End(3)(2).PasteSpecial xlPasteValues
Sheet4.Select
Application.CutCopyMode = False
End Sub

I think in the green line there should be some modification to paste the cell value in B2 c2 B3 c3 respectively. kindly let me know

 

[JoeMo]

I dont have much knowledge about coding, kindly let me know what to change in the code

Sub Button3_Click()
Range("B19,B22").Copy
Sheet4.Range("B" & Rows.Count).End(3)(2).PasteSpecial xlPasteValues
Sheet4.Select
Application.CutCopyMode = False
End Sub

I think in the green line there should be some modification to paste the cell value in B2 c2 B3 c3 respectively. kindly let me know

Does this do what you want?

Sub Button3_Click()
Range("B19").Copy
Sheet4.Range("B" & Rows.Count).End(xlUp)(2).PasteSpecial xlPasteValues
Range("B22").Copy
Sheet4.Range("C" & Rows.Count).End(xlUp)(2).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Sheet4.Select
End Sub

 

[Jyotirmaya]

Thanks Joe, Yes its working fantastic