Sub SayfaVerileriniBirlestir() 
  Dim sayfa As Worksheet 
  Sheets.Add 
  Application.ScreenUpdating = False 
  ActiveSheet.Move Before:=Sheets(1) 
  ActiveSheet.Name = "Birlesik" 
  toplamsayfa = ActiveWorkbook.Worksheets.Count 
  yenisatir = 1 
  For n = 2 To toplamsayfa 
      satir = 1 
      Do 
      sutun = 1 
      bossatir = False 
          Do 
              hucre = Sheets(n).Cells(satir, sutun).Value 
              If hucre = "" And sutun = 1 Then 
                  bossatir = True 
              End If 
              If hucre = "" Then Exit Do 
              Sheets("Birlesik").Cells(yenisatir, sutun).Value = hucre 
              sutun = sutun + 1 
          Loop 
          If bossatir Then Exit Do 
          satir = satir + 1 
          yenisatir = yenisatir + 1 
          DoEvents 
      Loop 
  Next 
  Application.ScreenUpdating = True 
  MsgBox "İşlem tamam !" 
  End Sub