Data sending from one sheet to another

[karthikgmk]

Hi Guys,

I need to transfer the data from one sheet to another sheet on a click of a button.

Issue facing
First two entries are working fine. From third entry, second entry is getting deleted and third entry is displayed in second entry's place...

Please refer the code and check where It went wrong....

Private Sub CommandButton1_Click()
Dim Dat As Date, Emp_name As String, Emp_no As Long, Emp_des As String, Emp_role As String, Emp_dep As String
Dim Mgr_name As String, Mgr_no As Long, Mgr_des As String, Mgr_role As String, Mgr_dep As String
Dim SR1 As Integer, SRComment1 As String, SR2 As Integer, SRComment2 As String, SR3 As Integer, SRComment3 As String, SR4 As Integer, SRComment4 As String, SR5 As Integer, SRComment5 As String, SR6 As Integer, SRComment6 As String, SR7 As Integer, SRComment7 As String, SR8 As Integer, SRComment8 As String, SR9 As Integer, SRComment9 As String, SR10 As Integer, SRComment10 As String, SR11 As Integer, SRComment11 As String
Dim MR1 As Integer, MRComment1 As String, MR2 As Integer, MRComment2 As String, MR3 As Integer, MRComment3 As String, MR4 As Integer, MRComment4 As String, MR5 As Integer, MRComment5 As String, MR6 As Integer, MRComment6 As String, MR7 As Integer, MRComment7 As String, MR8 As Integer, MRComment8 As String, MR9 As Integer, MRComment9 As String, MR10 As Integer, MRComment10 As String, MR11 As Integer, MRComment11 As String
Dim SROverall As Double, MROverall As Double
Worksheets("Self_Manager_Rating").Select
Dat = Range("C2")
Emp_name = Range("C4")
Emp_no = Range("C5")
Emp_des = Range("C6")
Emp_role = Range("C7")
Emp_dep = Range("C8")
Mgr_name = Range("E4")
Mgr_no = Range("E5")
Mgr_des = Range("E6")
Mgr_role = Range("E7")
Mgr_dep = Range("E8")
SR1 = Range("C12")
SR2 = Range("C13")
SR3 = Range("C14")
SR4 = Range("C15")
SR5 = Range("C16")
SR6 = Range("C17")
SR7 = Range("C18")
SR8 = Range("C19")
SR9 = Range("C20")
SR10 = Range("C21")
SR11 = Range("C22")
MR1 = Range("E12")
MR2 = Range("E13")
MR3 = Range("E14")
MR4 = Range("E15")
MR5 = Range("E16")
MR6 = Range("E17")
MR7 = Range("E18")
MR8 = Range("E19")
MR9 = Range("E20")
MR10 = Range("E21")
MR11 = Range("E22")
SRComment1 = Range("D12")
SRComment2 = Range("D13")
SRComment3 = Range("D14")
SRComment4 = Range("D15")
SRComment5 = Range("D16")
SRComment6 = Range("D17")
SRComment7 = Range("D18")
SRComment8 = Range("D19")
SRComment9 = Range("D20")
SRComment10 = Range("D21")
SRComment11 = Range("D22")
MRComment1 = Range("F12")
MRComment2 = Range("F13")
MRComment3 = Range("F14")
MRComment4 = Range("F15")
MRComment5 = Range("F16")
MRComment6 = Range("F17")
MRComment7 = Range("F18")
MRComment8 = Range("F19")
MRComment9 = Range("F20")
MRComment10 = Range("F21")
MRComment11 = Range("F22")
SROverall = Range("C23")
MROverall = Range("E23")
Worksheets("Consolidated").Select
Worksheets("Consolidated").Range("C3").Select
If Worksheets("Consolidated").Range("C3").Offset(1, 0) <> "" Then
Worksheets("Consolidated").Range("C3").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Dat
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Emp_name
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Emp_no
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Emp_des
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Emp_role
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Emp_dep
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Mgr_name
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Mgr_no
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Mgr_des
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Mgr_role
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Mgr_dep
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = SR1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = SRComment1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = MR1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = MRComment1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = SR2
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = SRComment2
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = MR2
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = MRComment2
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = SR3
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = SRComment3
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = MR3
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = MRComment3
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = SR4
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = SRComment4
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = MR4
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = MRComment4
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = SR5
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = SRComment5
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = MR5
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = MRComment5
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = SR6
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = SRComment6
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = MR6
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = MRComment6
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = SR7
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = SRComment7
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = MR7
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = MRComment7
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = SR8
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = SRComment8
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = MR8
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = MRComment8
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = SR9
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = SRComment9
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = MR9
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = MRComment9
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = SR10
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = SRComment10
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = MR10
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = MRComment10
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = SR11
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = SRComment11
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = MR11
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = MRComment11
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = SROverall
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = MROverall
Worksheets("Consolidated").Select
With Range("A1").CurrentRegion
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
End With
Worksheets("Self_Manager_Rating").Range("C2").Value = ""
Worksheets("Self_Manager_Rating").Range("C4").Value = ""
Worksheets("Self_Manager_Rating").Range("C5").Value = ""
Worksheets("Self_Manager_Rating").Range("C6").Value = ""
Worksheets("Self_Manager_Rating").Range("C7").Value = ""
Worksheets("Self_Manager_Rating").Range("C8").Value = ""
Worksheets("Self_Manager_Rating").Range("E4").Value = ""
Worksheets("Self_Manager_Rating").Range("E5").Value = ""
Worksheets("Self_Manager_Rating").Range("E6").Value = ""
Worksheets("Self_Manager_Rating").Range("E7").Value = ""
Worksheets("Self_Manager_Rating").Range("E8").Value = ""
Worksheets("Self_Manager_Rating").Range("C12").Value = ""
Worksheets("Self_Manager_Rating").Range("C13").Value = ""
Worksheets("Self_Manager_Rating").Range("C14").Value = ""
Worksheets("Self_Manager_Rating").Range("C15").Value = ""
Worksheets("Self_Manager_Rating").Range("C16").Value = ""
Worksheets("Self_Manager_Rating").Range("C17").Value = ""
Worksheets("Self_Manager_Rating").Range("C18").Value = ""
Worksheets("Self_Manager_Rating").Range("C19").Value = ""
Worksheets("Self_Manager_Rating").Range("C20").Value = ""
Worksheets("Self_Manager_Rating").Range("C21").Value = ""
Worksheets("Self_Manager_Rating").Range("C22").Value = ""
Worksheets("Self_Manager_Rating").Range("D12").Value = ""
Worksheets("Self_Manager_Rating").Range("D13").Value = ""
Worksheets("Self_Manager_Rating").Range("D14").Value = ""
Worksheets("Self_Manager_Rating").Range("D15").Value = ""
Worksheets("Self_Manager_Rating").Range("D16").Value = ""
Worksheets("Self_Manager_Rating").Range("D17").Value = ""
Worksheets("Self_Manager_Rating").Range("D18").Value = ""
Worksheets("Self_Manager_Rating").Range("D19").Value = ""
Worksheets("Self_Manager_Rating").Range("D20").Value = ""
Worksheets("Self_Manager_Rating").Range("D21").Value = ""
Worksheets("Self_Manager_Rating").Range("C22").Value = ""
Worksheets("Self_Manager_Rating").Range("E12").Value = ""
Worksheets("Self_Manager_Rating").Range("E13").Value = ""
Worksheets("Self_Manager_Rating").Range("E14").Value = ""
Worksheets("Self_Manager_Rating").Range("E15").Value = ""
Worksheets("Self_Manager_Rating").Range("E16").Value = ""
Worksheets("Self_Manager_Rating").Range("E17").Value = ""
Worksheets("Self_Manager_Rating").Range("E18").Value = ""
Worksheets("Self_Manager_Rating").Range("E19").Value = ""
Worksheets("Self_Manager_Rating").Range("E20").Value = ""
Worksheets("Self_Manager_Rating").Range("E21").Value = ""
Worksheets("Self_Manager_Rating").Range("E22").Value = ""
Worksheets("Self_Manager_Rating").Range("F12").Value = ""
Worksheets("Self_Manager_Rating").Range("F13").Value = ""
Worksheets("Self_Manager_Rating").Range("F14").Value = ""
Worksheets("Self_Manager_Rating").Range("F15").Value = ""
Worksheets("Self_Manager_Rating").Range("F16").Value = ""
Worksheets("Self_Manager_Rating").Range("F17").Value = ""
Worksheets("Self_Manager_Rating").Range("F18").Value = ""
Worksheets("Self_Manager_Rating").Range("F19").Value = ""
Worksheets("Self_Manager_Rating").Range("F20").Value = ""
Worksheets("Self_Manager_Rating").Range("F21").Value = ""
Worksheets("Self_Manager_Rating").Range("F22").Value = ""
End Sub

[karthikgmk]

Please help...this is bit urgent....