i have a main sheet in which column A holds customers name and column B to H are values date brand etc
i have written a vba for just 2 sheets and its working but i want to make that script short as i will have 30 to 40 sheets afterwards...
the main idea is if A column has customer's name. copy that row which has his name, it could be multiple rows(A4,A7,A10).... and then open his sheet and paste there.
can someone help me on this

```
    Sub customersheetpaste()

'Ashraf
    A = Worksheets("Main Sheet").Cells(Rows.Count, 1).End(xlUp).Row
    For i = 4 To A
    If Worksheets("Main Sheet").Cells(i, 1).Value = "Ashraf" Then
    Worksheets("Main Sheet").Range("B" & i & ":H" & i).Copy
    Worksheets("Ashraf").Activate
    B = Worksheets("Ashraf").Cells(Rows.Count, 1).End(xlUp).Row
    Worksheets("Ashraf").Cells(B + 1, 1).Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Worksheets("Main Sheet").Activate
End If
'Mozam Shahid
    If Worksheets("Main Sheet").Cells(i, 1).Value = "Mozam Shahid" Then
    Worksheets("Main Sheet").Range("B" & i & ":H" & i).Copy
    Worksheets("Mozam Shahid").Activate
    B = Worksheets("Mozam Shahid").Cells(Rows.Count, 1).End(xlUp).Row
    Worksheets("Mozam Shahid").Cells(B + 1, 1).Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Worksheets("Main Sheet").Activate

End If
Next

    Application.CutCopyMode = False
    ThisWorkbook.Worksheets("Main Sheet").Cells(1, 1).Select
End Sub

```