Cok teşekkürler sayın userx kodu biraz uğraşıp ihtiyacım gore degistirebildim, epey bi uğraştım ama, lazım eden arkadaşlar kullansın , boşlukları yok sayiyor, for sayılarını değiştirerek uyarlayabilirler


Sub Düğme1_Tıkla()
Dim a As String

For i = 1 To 20

  a = "."
   
For j = 1 To 4

  If Cells(i, j).Value = "" Then
  GoTo bura
   
  Else
  If j = 1 Then
  Cells(i, 7).Value = Cells(i, j).Text
  Else
 
Cells(i, 7).Value = Cells(i, 7).Value & a & Cells(i, j).Text
End If

End If
bura:
Next j

Next i
 
End Sub