How to split data with macro

[bhandari]

i was looking for emergency help
if i click "Command Button"i like to transfer data from 1sheet to multiple sheets
I have INPUT sheet:which have data in B1:B4
if the name is B6=Ballon
then transfer data to "Ballon" sheet
the data in B1:B4
if B6=Umbrella
then transfer data to "Umbrella" sheet
the data in B1:B4
A1(DATE)=B1
A2(DISCRIPTION)=B2
A3(REF NO)=B3
A4(Link No)=B4

 

[mumps]

Where in the other sheets do you want to paste B1:B4? Do you want the copy/paste to happen automatically after you enter a value in B6 or do you want to run a macro manually to do the copy/paste?

 

[bhandari]

Where in the other sheets do you want to paste B1:B4? Do you want the copy/paste to happen automatically after you enter a value in B6 or do you want to run a macro manually to do the copy/paste?

catually This is my Orginal Sheet
Please find the LiNK Below
https://drive.google.com/open?id=0B-ZWlAv5DqaEMU9TX3BWOWpSazQ

it have INPUT,KNR-BSCPL,GADAG,NHAI sheets

Input have Date,Letter Discription,Letter No,Ref links
If B6 is linked with data validation..user can select whatever he want eg:NHAI,GADAG..etc
if he select NHAI and clicking "command Button"
whatever the data is given in Input "B2:B5"it must paste in specific sheet tab.
the data must be in end of the row as well make it as transpose


Iam sry for unclear information in #1

 

[bhandari]

i need to submit it with in 5hrs any one can help me out..i hope its simple.
Please solve this asap

 

[bhandari]

iam keep poping my thread up

 

[mumps]

Copy and paste this macro into the worksheet code module. Do the following: right click the tab for your Input sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Make a selection in B6 and exit the cell. The copy/pasting will be done automatically.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B6")) Is Nothing Then Exit Sub
    Range("B2:B5").Copy
    Sheets(Target.Value).Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
    Application.CutCopyMode = False
End Sub

 

[bhandari]

WORKING tnx

is it possible with command button

 

[mumps]

Place this macro in a regular module (not in the worksheet code module) and assign it to your command button:

Sub CopyRange()
    Range("B2:B5").Copy
    Sheets(Range("B6").Value).Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
    Application.CutCopyMode = False
End Sub