Automaticly Moving Data Between Sheets

Hey everyone, I am working on a macro which transfers data from one sheet to another. The code starts by taking cells M1:P1 from sheet SL_Background and moving them to B9:E9 on sheet CreateSL. It then moves to the next set of four cells on SL_Background (Q1:T1) onto the next line down on sheet CreateSL (B10:E10). I am repeating this process about 180 times right now and it is all coded like this:

    Sheets("SL_Background").Select
     Range("M1:P1").Select
     Application.CutCopyMode = False
     Selection.Copy
     Sheets("CreateSL").Select
     Range("B9").Select
     ActiveSheet.Paste
     Sheets("SL_Background").Select
     Range("Q1:T1").Select
     Application.CutCopyMode = False
     Selection.Copy
     Sheets("CreateSL").Select
     Range("B10").Select
     ActiveSheet.Paste

So what I would like to do is to make something that automates this process and will eliminate more than 1000 lines of code. I'm pretty sure I need some kind of loop but I'm not sure exactly how to set it up properly. Any help would be greatly appreciated, thanks.