I have 20 sheets with data, and I want save some data in another sheets, I have this code :

VB Code:
  1. Windows("FICHAS SINANPE.xls").Activate

  2.     Sheets("001 Elbert Zavaleta Zavaleta").Select

  3.     Range("B6:B14").Select

  4.     Selection.Copy

  5.     Windows("Dbase personal.xls").Activate

  6.     Sheets("Datos Personales").Select

  7.     Range("A2").Select

  8.     Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _

  9.         , Transpose:=True

  10.  
  11. Windows("FICHAS SINANPE.xls").Activate

  12.     Sheets("002 Dante Alemán De Lama").Select

  13.     Range("B6:B14").Select

  14.     Selection.Copy

  15.     Windows("Dbase personal.xls").Activate

  16.     Sheets("Datos Personales").Select

  17.     Range("A3").Select

  18.     Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _

  19.         , Transpose:=True

This code run, but I have 20 sheets and I want to do a bucle where the sheets are inside the bucle, but I don't know how to do