Fill data from another sheet

6 viewsexcelvba
0

I created a macro to open a sheet based on user input.

Once the sheet is opened a user fills fields with data (subject marks) and calculates the percentage using a formula.

I need to pass the data to another sheet named "Data" without overwriting previous data without overwriting in VBA.

Sub open_sheet()
Dim sourcesheet As Worksheet
Dim ClassA As Worksheet
Dim ClassB As Worksheet
Dim ClassC As Worksheet

Set sourcesheet = Sheets("Main")
Set ClassA = Sheets("Class A")
Set ClassB = Sheets("Class B")
Set ClassC = Sheets("Class C")

If sourcesheet.Range("Class").Value = "Class A" Then
Worksheets("Class A").Activate
ElseIf sourcesheet.Range("Class").Value = "Class B" Then
Worksheets("Class B").Activate
Else:
Worksheets("Class C").Activate
End If
End Sub